
LE M05 EXISTE, NOUS 
L'AVO NS RENCONTRE ! 




Le M05 n'est plus simplemenl 
unnomnous I'avons rencontre, 
en chair et en os (si I'on peul 

•Ce qui frapp e I e plus, au premier 
-abord, c'est le "Design" soigne 
de la console, livree avec un boi- 
lier d'alimentalion (ct photo). 
Un rapide coup d'ceil permet de 
locahser la prise Per it el mtegree, 
la prise d'alimentabon. et le port 



d'extension.a larriere, amsi que 
!e connecteur cassette et le 
connecteur reserve au crayon 
oplique sur iecfite. Autfe surpri- 
se : clavier de 57 touches de ty- 
pe silicone, un connecteur, tres 
discret, permeltant I 'utilisation 
de cartouches enfichabies el 
I'absence d'interrupteur sur la 
console meme (il est present sur 
le boitier d'alimentation). 



LES CONCOURS PERMANENTS : 

10 000 francs de prix au meilleur programme CHAOUE MOIS. 
1 voyage en Cahfornie pour le meilleur logiciel CHAQUE TR! 
MESTRE (Regiemenl en page interieure) 



LE SYSTEME DE BASE 

Equipe du processeur 6809E, le 
M05 supporte 64K de memoire. 
Le Basic et le moniteur occupe 
16k en ROM, I'ecran 16K en RAM 
laissant ainsi 32K de memoire 
disponible pour I'titilisateur. Le 
connecteur de bus permet de 
brancher des extensions telles 
que impnmante, generateur de 
son, manettes dejeu. contr6ieur 
de disquettes (4 au maxi.). Le 
connecteur do cartouche per- 
met quant a lul, d'enlicher des 
cartouches remplacan; le Basic 
et dont la capacite mon.uire 
n"exc6de pas 16K. 
Le lecteur enregistreur de pro- 
gramme connectable par une 
prise DIN, est un modelespecla- 
fement dedie au M05. 

LE LANGAGE 

Le Basic, version Microsoft est 
residant. Une possibility interes- 
sante ; chaque mot reserve du 
Basic est accessible par la trap- 
pe de deux touches simultane- 
ment, ce qui accelere notable- 
ment la vltesse de (rappe et di- 
mlnue les risques d'erreurs. 

Suite page 8 



LA PAGE 
PEDAGOGIQUE 

Deuxieme apparition de la rubri- 
que informatique et education 
et deja beaucoup de courrier 
Vtsiblement, les enseignants ont 
beaucoup de choses a dire. 
Nous attendons avec impatien- 
ce les LOGOphiles atin de leur 
reserver la place qu'ils men- 
tent... avis aux amateulte ! 
Quoiqu'il en soit, cette semame 
risque d'etre charge pour les en- 
seignants lecteurs d'HEBDOGI- 
CIEL. Rendez-vous en page 8 



VOUS AVEZ 
DIT PRET DE 
MATERIEL ? 

L'operation P.O.E. (pret d'ordi- 
nateur aux enseignants) suscite 
une toule de questions. II senv 
ble utile de precisor quelques 
points essentiels : 
Comme indique dans le n n 28. 
une dernande de pret doit etre 
presentee ?>ous la lorme d'un 
dossier explicate rosumant les 
objectifs generaux de I'experi- 
mentation que vous desirez rea- 
lisor, ainsi quo le materiel neces- 
saire (type. periphorlques, 
quantlte. etc.), Les modalites 
d'obtention d'un prot d'ordina- 
teurs soront specifiees de (aeon 
detaillee dans la rubrique Inlor- 
matlquQ et Education du nu- 
mero 30. 

Vous pouve^ neanmoins nous 
ecriredes maintenant, afm d*ob- 

tonir de plus ampies Informa- 
tions 



CONCOURS 

Georges LECLERE 

lusqu'au 2 Mai, un concours. in- 
dependant des deux concours 
permanents est organise avec 
Georges LECLERE d'Antenne 2 
L'objectif de ce concours est sim- 
ple ■ a partir de ridee de base de 
Georges LECLERE. chacun d'en- 
tre vous. quelque soit son ordina- 
leur, doit crfier un jeu le plus pro- 
Che possible de I'ldeeonginaleet 
le rendre suMisamment perlor- 
manl et presentable, pour qu'il 
puisse etre vendu en France et 
dans les pays Francophones 

Chaque ordmateur a sa chance 
et il y aura un gagnant par ordina- 
teur Les pnx ? Comme d'habitu- 
de chacun des programmes rete- 
nus sera recompense par des 
matenels. ii y aura meme un su- 
per gagnant Mais surtout. les 



EDITO 



Le Hit parade des logrciels prevu 
pour r,.itesemaineest reportca 
la serruiine prochaine. la r.uson ? 
De nombreux fogiciels sont arri- 
ves a rhebdo cette somaine et 
notamment des nouvcautes qui 
vonl (aire mal ; PACMAN (In 
vrai !) pour Commodore ou Ap- 
ple ou encore des nouvelU's car 
touches pour TEXAS. Altendez 
une semame de plus, vous ne 
lo regrotterez pas Pour vous 
consoler vous avez droit a une 
plelne nage de petites annon- 
ces. Fouillez et vous trouverez 
surement fa bonne affaire 

Gerard CECCALDl 



DES PROGRAMMES POUR VOTRE ORDINATEUR : APPLE II ET HE 
CANON X-07 . CASIO FX 702-P . COMMODORE 64 ET VIC 20. 
HEWLETT PACKARD HP 41 . MULTITECH MP - F II . ORIC 1 . 
SHARP MZ, PC 1211, PC 1500 . SINCLAIR ZX 81 ET SPECTRUM. 
TANDY TRS 80 . TEXAS TI-99/4A . THOMSON T07 



HIPPOREBUS trouvoz I'expressionqui s' cache dans laB D dei'hippocampe Decompose on troissyllabes dans les trois premieres cas 
(solution en page interieure). 



;.lo 'lout' aevidemment un rapport avec rmtormatiquo 



E.N V/ERlTtf, ILEST HAWS L' UH ! 



ELIE NOUS noRTE AVANT BENOUi 

RCcevo/R 







\^ IM afcSy 27AvflM964 J 



Allomngno 3,50 DM • Bolglquo 65 Frs - CnnndM 2.50 $ - Luxombourfl 57 Fr» - Sulaao 3 Frit 




PUISSANCE 4 



Alignez4 pions sur le T07, c& n'est pas toujours facile, sur- 
tout quand votre adversaire s'ingenie a vous en empe- 
cher ! Maux de crane garantis ! 

J.M. BAUDR1N 

Moded'emploi ; 

Ce jeu se pratique a 2 : les rouges 
les jaunes 
Apres une rapide presentation, la grille se construit (7 colonnes - 6 II- 
gnes). Les colonnes sont numerotees de 3 a 9 {3 et 9 inclus). Le but du 
jeu est d'aligner4 pions dans : Le sens horizontal 

Lesens vertical 

En diagonale. 
LeT07recommenceaafficher: Les rouges jouent. Ondemandeensui- 
telacolonne'iouee. IlsuHit d'appuyersur]enumerodeco!onne(de3a 
9) et ensuite ENTREE. Aussitdt apres. un petit jeton Rougeapparaitsur 
I'ecran et se place dans la colonne choisie par le joueur, II descendra 
jusqu'aufond.s'ilnyapasdejetondanscettecolonneoubienjusqu'au 
moment oil il ne sera pas bloque par un autre jeton. 
Lorsquele pion rouge s'est place, le meme principe recommence pour 
les Jaunes. Et ensuite, cela revient aux rouges... Jusqu'au moment ou 
un des deux joueurs aura reussi a aligner 4 pions. A ce moment la, le 
T07 joue un petit air musical et nous dit lequel des deux joueurs est le 
. vainqueur. Pour rejouer, il suffit de faire RUN et le tout recommence. 




fO"? 



13 CLS1SCREEN2.6.8 

26 LOCRTEe. : «-- =■■? ir*T i_E 1.0,7 ET BflUORlH 

j-H VOUS PffOPOSENT- 

30 -0C^TEe.l3:PP!NT-DE JOUEH fll" 

40 FOi»*-eToieee:t*E>:T« 

60 flTTRBi^liCOLORZtLOCflTEejieiPRINT'PUiS 

ShNCE" 

70 C0LORlH.QCATF.gB, I8iPftIRT*4* 

50 roftK=eToieee:NE>rTft 

90 ^TTPB0,0:COLOP£:CLS 

280 WHT<.13,13> 

205 OOiUBSOCO 

SIB FCRl"0TO4e'LOCATEI,8:PR!HT* "ilOC-TE 

:■ t: PRINT" *lLOCflTEI,aiPRIMTCHR*(32) INEX 

TI 

220 COLORE 

225 rORI"OT05:LOC«TEI.3:PPINT" ":L0ChTEI 

,4:PPINT" ■ i LOCATE*. j5iFFUttT a "(NEXT! 

230 LOCATES, i:PPINT"LEs PCuGES JOUENT- 

2J0 L0CflTE8,2iINPUT'C0L0HHE JOUEE: "; :. 

245 C«INT(C> 

250 IF(C<3 OP C>9 ) THEM G0SUB£@9e 

260 lFT<C,3>oe THEN GOSUB 4383 

265 GOSUB60OQ 

270 COLOR 1 

2S0 G0SUB10OS 

2?0 T'C.I-I)sl 

70S GOSUB50Oe 

710 IF(H = 40P«ei = 4.:p;J!=4CiPlJ£- = 40Pa3 = 4QPy4=4 

OPU5 = 40PW6 = 4-pJ- = 4.:::i|£ = 40PW9 = 40RV=40Pve = 

40Pvi=40PV2=40PV3c4., THEN PLAVL68HIFAI1* 

LHSOFfi«I3OPEMI":LOC-TE3O.10:PPIHT ,i BRMVO- 

: LOCATED, 1«>:PP I HT "LES ROUGES" : LOCATE30, 

SOtPRINT'ONT GhGNE-:GOTO508 



315 IF f.T(3,3K>e 6NT> T(4,3><>0 AND T<5, 

3><>8 UNO T<6,3)<>0 ANf T<7.3)<>0 AMP T< 

s.3.'-.;0 AND T>'j.3:" '0 -> THEN PL«V»Lc@I1IF 

AnlL»30F»nl50REI1I"!LOCHTE30. 10 : PR J HT"(1AT 

CH":L0CATE30, lJ^RlMT-fJUL'-iGOTOSOe 

320 FORI*OTO4O!L0CATEI,0:PRINT" ": LOCATE 

I, I : PRINT" "'LOCATE!, at P«IKTCHR*(32>IMEX 

TI 

325 f0RI-8T05tL0CATEI,3:PRINT" ":LOCATEI 

-4:PPINT- ":L0CkTEI,5:PRINT~ "tNEXTI 

330 C0L0R2 

340 LOCATES. 1SPRINT-LES JAUNES JOUEMT" 

350 LOCATES, 2: INPUT"C0L0MHE J0UEEi"(C 

355 C-INT(C) 

36S IF<C<3 OR C>9> THEN GOSUB 2000 

370 IFT<C,3><>8 THEM GOSUB 4SO0 

375 GOSUB6O00 

330 CQL0R3 

"?0 GOSUB1080 

400 TfC,I-lJ-5 

4is casus sees 

420 IF(U-2QORU0 = 2o:.'li: = :oO = i!i = ;0OP!43 = 20O 

RM4«=2aOPU5 = £0':Pii6 = 2f'iJP:ir = if;ijHIS = 2OOP« o = 2 
eORV=2eORVO = 2Ou=v: = £-0i-jF'V- = :-OOPV3 = 2O:' THE 
M PLflY"L68«IFAMILnK>Fi;;iI-;nPEriI':L0CfiTE38 
,10: PRINT "EF:hvO":lijCaTE3S, 15:PPINT"LES J 
AUHES*! LOCATE ;0. 20: ' p ; :-j r 'Ont GhGNE°:G0T0 

see 

425 IF 0X3,3)00 AND Ti4,3K>8 AN[> T<5, 

3><>0 ANO T<6,3>O0 AND T(7,3><>8 rthD T' 

3,3><>8 AND T<5,3><>0 ) "HEM PLAVL60HIF 

AIHLASOFAnl5OREriI":LOCATE30, 18:PRINT"nf»T 

CH":LOCATE30, 1 5: PR I MT "NUL" : G0T0500 

430 G0T021S 

500 C0L0R2:L0CfiTE6,3 :END 



1020 
!030 
1040 
1050 
1060 
:;-■■ 






DEPLACEHEW 



B"3»C-2 

FORI-1T06 

LOCATE!, SiPRINTCHRi .£ _ 

FORft-8TO180iNE Tfl 

loc-te:.?: — :'. - 
me ■; 

L0CftTEB»3!pRIMTCHPi SS~ 
F0Rfl»0T0308iME Tfi 
LOCATES, 3iPF IftT" 



PI- 



II DC 



--i'. _: :--:-• 



RIHT- " 

1150 [FT<C,IK>0 THEN 1170 

1160 NEXT! 

1176 IFT'.C.i- -0 THEN L0CATE3«C-2,3«I-! 

PPINTCHPJ<127) 

1180 IFT'.C,3' = THEM L0C-"E3»: -;> 2£ :i E - 

TCWWC127) 

1260 RETURN 

1998 ' 

1999 ' 

2800 ■ TEST D£ CONTROLE M L« COLONNI 

2601 ' 

£682 ' 

2010 F0RI"8T048>LOCftT£I^HPRINT" ">LOC( 

EL.0:'PPIHT" ": LOCATE I . 2: R=I%TCHRJ' 32 'M 

XT I 

202O LOCATED UPRIHT'Lfi COLOMNE EST Sill 

ti 2 ET INF A lO- 

2030 LOCATES, 2: INPiJT-COLDNNE J0UE£t*;C 

2035 C=INT(C> 

2040 IF(C<3 OR C>9> THEN 2010 

2045 IFT<C,3K>0 THEN 4016 

2050 RETURN 

3998 ' 

3999 ' 

4000 ' TEST DE SATURATIOM DE LA COLOI 



4020 LOCATE0. LiPPIMT-vOUS NE P0UVE2 PLUS 

JOUEfi CETTE COLOMNE- 
4030 LOCATE0,£: INPUT"COL0NME J0UEE:";C. 
4035 C^INTCC) 



-05 1 
4994 ' 

5000 ' 

5001 ■ 



5020 wo=T' ■:.:- 



5040 u£=T. c. :-: 



5070 w5=T-c.:-r-T :.:-i -■ :,; -- 








5098 u7.tic.i-: >-T :-:.:-; -■ ;-;. 


.. . 


CC*3,I-1) 




5100 W8*T'C, !-:,.T:;-i, :-; .- :-;. 




CC-t/I-l) 




5110 U9=TfC.I-i:'-T'C-l.:-l -•■:-:. 




(C-S,I-1) 








C-3»I-1) 




5130 v8"T<c,i-i>*t<c*i,i -" :-£■:- 




*3, 1+8) 




5146 vi=t<c.i-; ■+t-;-i. : ■••■ :-2. :• 




-1.1-2) 




5150 V£=T. C, 1-1 >+T C ♦! . I •T'C-l.I- 




-2,1-3) 




5160 V3=T<-C.I-I ■•T.c-i.i-i -' ;-i. 




(C-3.I-4) 




5=00 RETURN 




5998 ' 




5999 ' 




6606 ' CONiTRUCTICN [E .- GRILLE 




6601 ' 




6662 ' 




6016 FQPl=0T06 




60£0 LINE' 48. 4;. £4.- ■-■■■-.---£-.; 




6036 LINE' 4S*24»I.4> - 48*£4«1.192 




6046 NEXT I 




6050 LIME(216,40 ■-■£;:. 192' 




6060 F0RJ-3T09 




6070 L0CATE3»J-3,5:? : f INT. 




6SB0 NEXTJ 




6106 RETURN 





^W*T:3 
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BON DE COMMANDE 

TARIFS AU 16/3/84 

Prenom 
Adrene 

Code PoitaJ 
VINe 

Ces prlx soni Indleatifi et peuvent tire modlfiei 

wns pre^vls. 

Produili dlsponlblci dans la Umlie dc nos itocks 

en magasin. 

Panic I pa Uon aux frali de port et d'expedfllon en 

recommande pour lei logltleli : + 30 F. 

Promotion complete APPLE : tramporteur : 

20 kilot + 185 F. 

LA REGLE A CALCUL : 

65/67, bd Salnl-Gemialn, 75005 PARIS 

Tel. : 325.68.88 - Telex : ETr?AV220064F/T303 RAC 
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COMMODORE 



Commodore 64 Pal 
Interface cenuonic 4- c5ble 
Lecteurdediiquei Vic 1541 
Imprimarile WPS 801 
Traceur de courbei Vic 1520 
Cable peritel 64 
Cflbte video 64 
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1 1 
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1 1 
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JEUX D'ECHECS 
A mlcro-proce«eur 



Cr*ii lensory 6 
Chew sensory 8 
Chew sensory 9 

Mephlsio t 

Mephisto 2 

Mepnisto 3 

Mephisto Junior 
Module Chpss93aiCB9 
Module Chesi 9 1345 Cf) 16 
Dame 
Revets i 

Morphy Cflilion 
Cflssctte cap.'ii.i'.TK.i 
Cassette grunf eld 



Pri* TTC 




I.I80F 


1 1 


I 400,00 


II 


1990.00 


II 
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2 200F 
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2950.00 
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1 500 F 
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PHOMOTTON EDUCATION JUSQU'AU 31/3/84 

• 1 apple II' ■ I logldel edl-logo ou 

• I disk tl* ave< contrOleur • 4 logldeli dc la s*rle Point bac 

• I monHeur signal* par- 



• Uigonoriiftne 

• n ombres complexes 
PHYSIQUE I » 



PHYSIQUE 2 
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EDI-LOGO 

Le fameox langage LOGO, e 
dans la version onginale 
CARTE PORTE -PAROLE 

Une voix claire et amcuiee vr 

V I -f- 1 NATHAN 

• iFR|sin.utateurdevo!s| 

• Calcuhtrir.e 

• J'explore I'espace |rrwtlis) 

• L'orqaniwteur Igestron de lichiers] 

• Le ledacteur Itraiiement de textej 

• Le correaeur 
(drctionnaire du traitement de te>te| 

EOM.OGO 

Le fameux langage LOGO, en liancais. 
dam b version OdOlnaie dC-velrippee 
a I Universne ami?ricjine MIT 

PORTE PAROLE 

Votre micro-ordmateiir pcut p,viei I 
Ecoutez I Une i/ott cMre ei srtt uWe 

LoclglclJ QEL BLEU pour APPLE II et II* 
sur dliquettes 

Le Basic e«pli(]ue 

An rir-ijl rlu [i.i'.n 

Cofflp (addition 

KVn.liv WHJJ 

Rrteou 

C o nil 6lei 1 1 aei ien 
f tactions 
t3ecim.ilcs 

Adtfvnetjque 

Savoir compter 
Saw*eolre 

Perception 

r rirTihc.'i.i,iifi,'iiTn i 
Aucjirefiie/ 1 
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COMBINAISONS 



Une chasse aux voyelles sur votre VIC 20, avec une petite 
astucepourconserverles scores, sauf si vousdebranchez 
votre ordinateur, bien sur ! 

Vincent NORMIER 

Mode d'emploi : 

Matenel utilise : Commodore VIC 20 + 3 Ko RAM et magnetophone 
C2N. Ne pas employer d'extension superieure a 3 Ko. sinon changer 
tous les POKE qui regissent raffichage de la memoire ecran. 
Utilisation du programme : Lidee generale est celle du logiciel GEMINI 
sur T07 adaptee et Ires largement modifiee pour passer sur un VIC de 
6.5 Ko. 

Le but dujeu est de retrouver les chiffresou les voyelles mis par deux ou 
trois qui sontdissimul6s dans un tableau dont on nepeut voir que 2 ou 3 
cases a la lots. 

Au niveau 1 il faut retrouver des couples de voyelles. Tableau de 12 ca- 
ses avec 2 essais par tour. 

Au niveau 2. il faut retrouver des triples de voyelles. Tableau delScases 
avec 3 essais par tour. 

Au niveau 3. il faut retrouver des couples de chiff res. Tableau de 20 ca- 
ses avec 2 essais par tour, 

Au niveau 4. i! faut retrouver des triplesde chitfres. Tableau de 30 cases 
avec 3 essais par tour. 

II faut done reconstituer le tableau le plus rapidement possible. Seul le 
nombre d'essais intervient dans le score. Le temps, en haut a droite, 
n'est donne qu'a titre indicatif. 

Le plus simple pour comprendre est encore d'essayer. Une derniere re- 
marque :Vouspouvezabandonner en tapant£ a la place d'unereponse 
de n°decase. 

Les records seront toujours conserves (sauf si le VIC est mis hors ten- 
sion) meme si Ton fait un RUN/STOP RESTORE ; ou les records sont 
stockes dans les 4 octets de la page (251 a 254). 



10 P0KE36379.. 27 F0KE36369.242 F0KE3S878, 15 : RD=258 

20 SS»17e:PRIHT' , T , :FORI = 76S0TCl??(jl : POKE I ■ li>£ POKE I +30720, 7 ■ FDKE36876.SS 'SS=SS+1- 

NEXT 

30 FORI=7723TO3185STEP22;POKEI,ie2:POKEI+30720-7:FOKE3687^,:;.S:&i.='=,S+l;HEXT 

40 F0RI=Si--^T'J.^l--.4i-TEP-l PQKEI,102 POKEI'30720. 7;p0KE36876.SS;3S=SS*l NEXT 

50 FGRI=S14iTO7702STEP-ii POr,.hi.[U^PGK£I*30720.7 PC(-;E:>:i76.3i 'ii=iS-rl ■ NEXT 

60 PLiKE36376.0-BlJ= , 'RElUUV"-fi2J = "01«iJ4567S9 n 

70 PRIHT"»IB>0*W*++*******«*#*»*" 

£0 PRINT "W 







iH 



1 10 PRINT">MW**********<M#**1" 

115 IFRJ-1THEN160 

128 PR1NT".«I«M_EGLES DU JEU 

138 GETQ* 

148 IFO»«"0"THEN129e 

150 IF«#0"N"THEM38 

160 FRIHT"MBOI/IVEfiU U~4< ? 

170 GETQ J 

180 IF0*="1"THEHD=1 ■QW=12-L=4-C=3-E*=Bl»+Bl*-Hli=2 -0010230 

190 IF0S="2"THEND=£:GW=1&-L=S:C=3 : B*=B1*+81*+B1* RR=:-i- G0TO230 
230 IF0J= M 3-THEHD=3 QU=20-L=5 C=4 ■ B*=fc^*+B2* RR=2 ■ GGT0238 
210 IFu*="4"THEND=4 : OW=3o :l = 6 ■ C=5: B*=B2$+82*+B2S ■ RR=3 ■ G0TO230 
220 GOT 01 78 

230 F0KE36379.25 ;PRINT":3«ffl!auuiMMU»Ml 1 v' \/»l */\ -*X"1. ' ' 

235 8JHR*CQU).B(rjW),FF<0H) 

240 FC<RI = 1T0QW 

230 Z=INT'.RNDC1>«QW-H) 

260 IFB<2.)=iTHEM250 

270 B(Z>=1-RJ'.I>=I11IIJ'B*,Z,1J 

286 NEXT 

290 FURI1=0TQL~1 

388 FORI2=0TOC-1 

310 B<C*I1 +12+ 1 1=7726+44*1 1+2*12 

320 NEXTI2,I1 

330 PRIHT"3":pOK.E3S3S3-240:i=l P0!.E36879,27 

340 IFD>2THEN440 

358 PRINTS fl B C" 

368T1*="I I I l":T2«-" hH-+-H" 

370 PRINT" (— i— r— i" 

330 F0RW=1T0L 

358 PRINTRIGHTKSTR*CS 

480 NEXT 

418 PRINT'TI l_x_i_.- 

428 FORI"1TOQH:POKEB<I 

430 GOTO620 

448 IFD03THEH548 

458 PRINT "a fl B C D' 

468 Tl«=" I I 

478 PRINT" r— 

488 F0RW=1T0L 

498 PRINTRIGHTKSTRKS 

580 NEXT 

510 PRINT'-H ■ — ■ — '- ■> - >■■ 

520 FORI=1TOOW:POKEB<I^,182:POKEBMJ+30728,7:HEXT 

530 GOTO620 

548 PRINT"rt Fl E C D E" 



■1);T1*:PRINTT2*:S=S+1 



102 POKEB< 1 .' + 36728, 7 ■ NEtfT 



T2S = 



,IJ;T1*:PRIHTT2»^S=S+1 



\f\C 



20 




57S FOftU-lTOL 

530 PPINTFIGHTJ'.STPJ' :■ ' 

590 HE; : 

1 PBIMT": 



Til PPINTT2* S*4 



.102 POKEB<I>+W72fl 



610 F0RI»1T00H:P0KEB<I) 

£29 T I *=" 800088" 

630 FPlrifsTTRE' 14. "i, 1 ,■ 

-40 PPlHIliifc'. 14.." l»"HIM<TI*,3/2>'fclWRI0HT*tTI«,2J-»(" 

658 PRIHTTRBM4>"' ' r- 

660 P0KE36876.210 F0REE-1T03W MEO P0KE36876/6 F0REE-1T058 MEX1 POKE* 
QREE=1TO508 NEXT 
662 P0KE36876.8 

670 tJE = ltE*l 1FNE,1OO?HEN1100 

630 PPlHT"s«anaai"TRBM4)"IS3Rr , -PRIHTTIiBa4J 

685 P0KE36S7- 200 FOp,E3-;?75.200 FOKE36s?4.208 FOF£E=1TO200 NEXT Put E «6<57e, Ftt E 
36875.0 

686 P0KE36874/8 

690 FRINT"ITThBU4)"NQ M-HE'I' F'PINTTRB' 14 ■ " 

700 F0RI = 1 TORRID- I >=6 Jl*U >-•" JL*tI j--" XC1 1 >*-|+CC(l-l • CL- 1 >*-lKLU-l NEM 

710 FORZZ=ITDRfi 

710 PP INT" iWiWp;(;f;f;o;w;.'a;j;p;i;H> ;.;■■£!■ 

730 0£TJC*CZZ) IFJC*',ZZJ = ' - £"THEN1100 

740 PRINT"HWrTRBti5>mB«<TI*,3*2>"l 

750 IFJC*<ZZ>"""THEN738 

760 IFR3C'LJ0I'.ZZ.'.' .650PR'?CUCtCZZ^^64+CTHEtJP0KE36:i."'^. l^-.t F0PEE=I t'"<l-.0 Ht.-.T cuh-E 

36375.0 GOTO730 

778 FFtM"#xr t KKK'ir:K>lZKWXMi*»n»M»WrJCS<ZZ} ,, ~» 

7-...1 -_-E>.-:.'-, ^-JO FCt-EE=lT0158 NEXT P0kE3feS7^,o 



"PRINT" 

naarRiOKT^t 



l»,2)' 



IF. 



■ laarRioHT*! ns,a ■■ ■ ■ 



ic ;lj-*. 



/-4S+LTHtNP'>-E36d75.i50 FuPEE= 1 I Gl^O t-E-.I >,.■£ 



:■ 50 L r .■"- 7 

3S375.0 C _ 

■i-;- r =. ; ■, i ?ii;'>.',»;r 1 '.Miww,Mi»piH»»n ■ ,r L i ■ ,.. 

350 F0h'E3ei7t -iOO F , FEt = I Tijistj HEXT : P0KE36876, 
660 CL(ZZ)=flSC(JL*CZ2>)-49 TIK2Z>*CtCLCZZ)+CC<ZZ>*] 

S70 IFL=2OPL=4THEN90O 

SS0 I FCC' 1,' =ti:' 2.'fiNIiCL'.l.'=CL<.2JTHEM938 

:?:-0 GOTO310 

900 IFCCCl>=CC'.2.'fiHDCL'.W=CL<2>7HENM8 

984 IFCC'.l)=CC':3jRNIiCLaj=CL(3^TH£M930 

906 IFC'^t^CC-t i.'RNIiCL'-t^CL' i-THEN93C 

916 IFFF',TU'2Z'.' = 1THEN950 

320 GOTO970 

930 P0KE36S75-150 PRINT-Svv.^'.p.-L'.X'^v'H.'.^-.j.'Tm;. IiEUX F01S Lft HEME ORiE.SVP." 

940 FOPEE = llN2iJ0 ! 3 NEXT P0KE36S75 ■ PRIHT"T] 

:GOTO720 

958 PQKE36375.150 ■■FRlin-sLWiKKKW'XKKKKWKKrr.ttE LEJR JOUEE." 

960 FOPEE=1TO2000:NEXT PRINT-TT P0KE3687 

5.8 G0TO728 

970 IFBC3THEH339 

950 POKEEr TB'.ZZ.v.flSC.FlsaiXZZ/J) GOTO1008 

390 POKEB(TD<ZZJJ,flSC<r=!*'.TIi--.ZZ;>}-64 

1800 NEXT 

1018 IFD=2ORU=4THEN1040 

1020 IFRJ^Ttia ':'=RSaiJ<;2'>THEN1068 

103O OOTO1050 

104O IFR»arjCl)3=flJ<TD(2;>RNDR*aD'.l>;=R*(Tt'.3^THEN1060 

1050 FOF:EE=lTOJ0O8NEXT-FORI = lTORRPOKEB'.TDU)j. 102 NEXT G0TO67B 

I860 FORUU=130TUt54 rOY E35876. OU HEXT FQFljij = ^t4 [ 01 ,-v'- ; .TEF -1 FUKE36^76.UU NEXT POK 

£36876,0 

1078 FORI = 1TORR :P0KEB<TBl I ''+30720, S'-FFITDtl ))=1 ■ NEXT 

1080 TF=TF+Rfl 1FTF=OWTHEN1160 

1090 GOTO670 

1108 NE=100 

1118 IFJK3THEN1140 

1120 F0RI«iT0QHjP0KEBCI>jflW<fWCI»:P0KEB(I>+3872e«S P0KE36876. 1S0 FUREE-1TO50 N 

EXTEE 

1130 POKE36876.8:FOREE-1TO10HEXTEE.I GOT0U68 

1140 F0RI = lT00W:Pi>-Ef! I,'-flSC<H*(I))-64;P0KEBa.> + 3072y.5 PUK.L36076. ISO FUREE = 1T05 

HEXTEE 

1150 F0KE36376.8 F0REE=1T010 NEXTEE.I 

nee FKun-a mamn aanuHMnt nutfya feturn** 

1170 IFFEEKU97K>15THEN1170 

1188 P0KE36369-.-:42 K0IE36679,8 

1130 PRINT"*]* --V,^." 

1200 PRINT"Jliai*CORE-»"100-NE"5eUR 180." 

1210 PRINT"«a/IVERU B"B"Wi" 

1220 IF100-NE>PEEK<RD+roTHENFOKERB+Ii.l08-NE 

1230 FORI-1T04'PRIHT"-ECORD NIVEAU"! TH8C21-liH<STR»tPEEKCfU)+I))»PEEK<RD>I>:N 

EXT 

1240 PR I NT "««*» RECOMMENCE ? ' 

1250 GETZJ 

1269 IFZJ="0"THENRUN 

1278 IFZ*0"H"THEH125e 



1 ■ END 



;.■;■?■; rOi-h ...-■.-,.-_<. ,;.■ i-i. t :..-^:-i. .:-!-! ;■ ■■ ;hi ;: 
1290 PQKE36S?3,74 

1300 PRINT"1^_EGLES DUJEU^ 

1310 PRINT" SM-r\K/*-.»rv»l9" 
1315 PRINT" IESTE VOTRE MEMOIRE." 

1320 PRINT"»nL VOUS FRUT TROUVER: 

1338 PRINT'*aVIVEflU 1 : BILES PR1RE& BEVOVELLES <»»" 



.r/li>.' 



1340 PRINT" aa«/IVERiJ 2 : 51LES TRIPLES BE VOYELLES.' 

1358 PRINT"«S*/IVERU S^BlLES PRIPES I'ECHIFFREi - *-l,:>i^6789iJ. " 

1360 PRINT"aa/IVERU 4:*LE3 TRIPLES DE CHIFFRES. " 

1378 PRINT-'IWW IftPEZ #Tt- _ t", 

1380 IFPEEfXlS7><'.><2tHEU1388 

1398 PRINT'.-a TJUR ENTRER LES COOR-DONNEES BE LR CRSE UUE VOUS VOULEZ VOIR." 

1400 PRIHT-'TRPEZ D'RBOPD LR COLOHNE.P'JIS LR LIGNE." 

1410 FRINT-WU NIVERUX 1 ET 3,V0USRVE2 DROIT R 2 CASES PAR ESSflI.3 CRSES RU Nl 

VERUX "; 

1420 PRINT"2 ET 4." 

1430 PRINT"IMJU3 POUVEZ RBflNDONHEPEN TflPRUT 33r£Bi. " 

1448 print '■jrwasmwirv *\*~\-/\ !■• 

1450 PRIHT"M«Wa 1RPEZ »"»-" 

1460 IFPEEX(197>O32THEN1460 

1470 RJ=1 ^G0T02O ■ 



CALCUL 



Voil& le programme ideal pour devenir un as des jeux du 
type "Le Compte est Bon". Vous devez retrouver les ope- 
rations arithm6tiques qui lient les nombres que vous pro- 
pose aleatoirement votre HP 41C. 

Jean Louis WANSART 

Mode d'emploi : 

Introduce un nombre quelconque dans leregislre 09 (nombreavecde- 
cimales). Regarder (attention, e'est rapide !) et choisir entre les deux 
operations proposees. 

Ala fin de 5 exercices, lepourcentagedes bonnes reponses est affiche. 
Exemple : 

DONNES TOUCHES RESULTAT 

2.569486 STO 09 2.569486 

XEQ "CALCUL' 13?74?80 

?+ou- 
SHIFT+ R/S ?+0U- 

SHIR- R/S oul 



Ytf> 



AA 



ao o 




2!: 14 63.62 


27 X>Y? 


54 RCL 63 


81 STO 1 


188 CTO 88 


135 RRCL 84 


162 INT 


6HLBL -CBLCUL- 


28 SF 86 


55 * 


82»LBL 66 


189»L8L 88 


136 ■!■=• 


163 RTH 


92 CF 2? 


29 RCL 82 


56 STO 88 


33 RCL 65 


118 •*• 


137 RRCL 85 


1644LBL 13 


83 FIX 6 


38 RCL 83 


57 CTO 84 


84 X=V? 


111 RSTO Y 


138 RVIEU 


165 "EXACT fl 


64 198 


31 FS? 85 


58«LBL 83 


85 GTO 67 


112 RCL 1 


139 TONE 6 


166 flRCL 86 


65 STO 88 


32 CHS 


59 RCL 92 


86 -NON- 


113 RCl 86 


148 PSE 


167 ■«■ 


86 6,68881 


33 - 


69 RCL 63 


87 RVIEH 


114 X=Y? 


141 PSE 


168 RVIEH 


87 STO 61 


34 RCL 94 


61 - 


88 TOHE 5 


115 RTN 


142 PSE 


169 TONE 7 


88»LBL 9B 


35 FS? 86 


62 STO 88 


89 TONE 1 


116 --- 


143 RTN 


178 TOHE 3 


99 DSE 91 


36 CHS 


63»LBL 94 


98 9 


117 RSTO 86 


144«LBL 11 


171 TONE 7 


18 GTO 81 


37 - 


64 ■? t Oil - 


" 91 STO 86 


118 RTN 


145 -♦- 


172 TONE 3 


11 GTO 13 


38 STO 85 


65 PROMPT 


92 STO 87 


11MBL 89 


146 RSTO 86 


173 TONE 7 


12«LBL 91 


39 -?• 


66 ROFF 


93 FS? 65 


126 V 


147 RTN 


174 TONE 3 


13 CF 85 


48 fl'iin u- : . 


67 RSTO 1 


94 XEO 11 


121 RSTO Y 


148«LBL 12 


175 TONE 5 


14 CF 86 


41 flSTO 67 


68 "♦■ 


95 XEO 68 


122 RCL Y 


149 -f 


176 TONE 5 


15 XEQ -CNfl- 


42 XEO 16 


69 RSTO X 


96 FS? 66 


123 RCL 87 


156 RSTO 87 


177 TONE 7 


16 STO 92 


43 RON 


78 X=V> 


97 XEO 12 


124 X=Y' 


151 RTN 


178 TONE 9 


17 XE9 -CNP- 


44 •? t OU -' 


71 CTO 85 


98 XEO 89 


125 RTN 


152«LBL -CNR- 


179 TONE 5 


18 STO 83 


45 PROMPT 


72 RCL 88 


99 XEO 18 


126 •-• 


153 RCL 89 


188 TONE 7 


19 XES -CUB- 


46 RSTO 1 


73 RCL 64 


188 28 


127 RSTO 87 


154 9821 


181 TONE 3 


26 STO 84 


47 ■♦■ 


74 - 


161 ST- 66 


128 RTN 


155 < 


182 END 


21 58 


48 RSTO X 


75 STO V 


192 GTO 86 


129«LBL 18 


156 ,211327 




22 XEO "CNfl- 


49 K«V? 


76 GTO 86 


183»LBL 67 


138 CLR 


157 » 




23 X<V 


58 CTO 82 


774LBL 65 


184 -01)1- 


131 RRCL 82 


158 FRC 




24 SF 95 


51 CTO 83 


78 RCL 88 


185 RVIEU 


132 RRCL 86 


159 STO 69 




25 56 


52«L8L 82 


79 RCL 84 


186 TONE 5 


133 flRCL 83 


168 188 




26 XEO "CMfl- 


53 RCL 82 


88 » 


197 TONE 9 


134 RRCL 87 


161 • 


1 



FIC1 



RC 1, gestion de fiche, creation, modification, recherche 
et Edition de flches : un programme complet et bien 
pratique... 

Frederic SARREY 

Moded'emploi : 

La premiere information que nous demande ce programme est !e nom 
du fichiersur lequell'utilisateur travaille le plus souvent. Ce qui permet 
de passer sur !es questions M demande de nom" par un simple RETURN 
Vient ensuite le menu general en 9 points soil 9 sous programmes 
CREATION : dans un premier temps, creation de la fiche modele du fi- 
chier: nombre.de ligne. nom de la ligne, longueur fichteraccessequen- 
tiel puis saisie des fiches./permet de revenir en haul de la fiche en cas 
d'erreur. 

Rchier acces direct. 

ADDITION : ajout de fiche dans le fichier acces direct 
CORRECTION : correction de fiche. 

EDITION : propose differents modes d'edition dont le dernier tri le fi- 
chier par ordre alphabetique sur les deux premieres lignes. 
Surle tri. ils'effectuedirectement dans lefichiersurdisquette. Jepense 
qu'il est possible de I'ameliorer surtout en temps de tri. 
RECHERCHE : Un menu propose differents types de recherche + ou - 
sophistiques. Le quatrieme est le plus complet puisqu'il procede par 
mots cles lies ounonsurl'ensemblede la fiche ou sur unnombredefini 
de lignes. 

Generalement toutes les questions sont expliquees et les questions 
dont les reponses modifient le fichier component une securite. 




gosub 2i : 



REM 



CONT ERREUR 



20 ONERR GOTO 2190 
3Q REM PGM GESTION GENERAL DE 
FICHIER. FIC. 1 

40 REM F.SARREY 03 B4 APPLE II 

♦ 1LECTEUR AVEC OU SANS IMPR 
IMANTE 

41 REM ........................ 



50 GOSUB 2230 

60 D* - CHR« (4):0* = D* * "OPEN 
":C* = D* * -CLOSE ":E* - D 
» * "WRITE ":L» = D» * "READ 

":DL* - D* * "DELETE":Vt = 
D* + "VERIFY " 
70 :I1» =■ D* ■• "PR«I":IO* - D* * 
"PRHO": 13* - CHR* (91 * "BO 

SO HOME :TB* = "»=•=-=— = , = = = = = ., 

90 DIM A*<15> .KC151 ,J(15),R»<150 



110 



MTAB 11: PRINT "CREATION-- 
(INT 



120 HTAB 11: PRINT "ADDITION 

>2": PRINT 

130 HTAB It: PRINT "SUPPRESSION- 

>3». PRINT 

140 HTAB 11: PRINT "RECHERCHE 

>4": PRINT 

ISO HTAB II: PRINT "EDITION 

S5" : PRINT 

160 HTAB II: PRINT "CORRECTION — 

>6": PRINT 

170 HTAB 11: PRINT "CATALOGUE 

>7"i PRINT 

180 HTAB 11: PRINT "FIN 

>8": PRINT 

190 HTAB 11: PRINT "SUP FICHIER- 

.-"?": PRINT 

200 HTAB 3: VTAB 22: PRINT "CHOI 

X "|l GET CH: IF CM < t OR C 

H > 10 THEN 200 
2IO ON CH GOSUB 240,280,320,300, 

780, 1270. 1460, 1630. 1630 
220 GOTO 100 
230 RETURN 



240 REM CREATION 

250 GOSUB 17O0: REM CRE F.SEO 

260 GOSUB 1820: REM CRE F.ACD 

270 RETURN 

271 REM •••.•••■•..•.<■•••■.»«•< 



;oo GOSUB 2010 

:iO PRINT 0*;nf»;" 

860 

REM *•«»•••#• 



L";LM: GOTO 1 



311 

320 REM SUPPRESSION 

330 HOME : PRINT TAB! 10)I"SUPP 

ESSION": PRINT : PRINT 
350 GOSUB 5000 
360 INPUT "VISUALISATION "fCH»: II 

CH* - "O" THEN GOSUB 2030 
370 GOSUB 3000 
375 HOME 
3BO INPUT "OONNEZ LE NUMERO DE L 

A FICHE "!T:J - T 
390 GOSUB 4O00 
400 INPUT "CETTE FICHE "ICH»i IF 

CH* - "N" THEN HOME : GOTO 

380 



1 



I FL 



430 PRINT L*(NF*I",R"[T * ; 

IJMM INPUT A» 
440 PRINT E*SNF*I".R"I Tl",l 

. : PRINT ASi PRINT D* 
43iJ NEXT I,T 



I PRII 

F: PR IN 



E»tl 



460 F - F - 

Oi PR IN 
470 GOSUB 5! 

490 GOTO 37< 

491 REM ••< 



50O HOME I REM RECHERCHE 

310 PRINT TAB( 10! I "RECHERCHE" I 

PRINT i PRINT 
520 GU5U& 5000 

340 r,n-,un 2010s print 

330 GOSUB MOO 

370 PRINT TAB( 5) I "PAR NUMERD-- 

>ll"l PRINT 

380 PRINT TAB! 31 ("PAR CARACTER 



l '■ 



tINT 



590 PRINT TAB( 3) I "PAR L I MIL - - 

>|3"I I I'llil 

600 PRINT TAB! 31 I "PAP CLEPB 
i a" i I RIN1 

4-10 '/ii.n i /: HTAB 101 I HINT ■■ i a 

E DE M ' l" IT. Ill ■! : IMF UF ( H 

tOO ON I M '■'!'.'.[■ MO, »iO, 1990.234 



630 GOSUB 5500 

640 HOME : GOTO 510 

641 REM ........... 



650 REM RECHERCHE PAR N 

660 HOME : INPUT "NUMERO DE FICH 

E ";t 

670 GOSUB 3000: GOSUB 4000 

700 GOSUB 2280: RETURN 

701 REM «••»•..«•.•..»*#.***.*. 



710 REM RECHERCHE PAR C 

720 HOME : INPUT "CARACTERE IS) S 

UR 1 ERE LIGNE "IBS 
730 GOSUB 3000: FOR T ■ I TO F 
740 PRINT L*;NF»;",R":T;",8": Is INPUT 

ft*: PRINT D*:A« = LEFT* (A* 

, LEN f B*> > 
750 IF A* » B* THEN PRINT T: GOSUB 

4OO0 
760 PRINT : PRINT : NEXT T: GOSUB 

2280 

770 RETURN 

771 REM .».*....•.».«»..».•»... 

760 REM EDI F. 

770 HOME : PRINT TAB I 10) I "EDIT 

ION DU FICHIER": PRINT : 



!IN 



BOO GOSUB 5000 

820 GOSUB 2010: PRINT 

840 GOSUB 6000 

B45 CH = O 

B30 PRINT TAB< 5);"EDIT!0N DU F 

ICHIER >1": PRINT 

B60 PRINT TAB! S)I"EDITION DE L 

IGNES >2": PRINT 

870 PRINT TAB! 5I;"EDITI0N DU F 

ICHIER TRIE->3": PRINT 
8BO VTAB 17: HTAB 10: PRINT "TYP 

E D'EDITION "|i INPUT CH 
B90 ON CH GOSUB 2050,900,900 
S95 GOSUB 5500 
aft, HOME : GOTO 790 

900 home : input "nombre de lign 
e ";n 
. 910 for i - 1 to n: input "numer 

D DE LA LIGNE "IKlfidl - J (K 

) : NEXT I 
920 HOME : GOSUB 3000 
930 FL - Nj FOR T - 1 TO Fj GOSUB 

4000: NEXT T: GOSUB 22B0 
950 RETURN 
971 REM #•......•.#»......«».*. 

930 GOSUB 30 OO 

990 HOME I HTAB IB: VTAB 12: INVERSE 
: PRINT ■ TRI ": NORMAL 

1000 FOR T = 1 TO F: FOR I - 1 TO 
FL: PRINT L*,NF»: " , R" I Ti " , 6" 
;J(I): INPUT R*(T,I): PRINT 



1030 D - I 

106O D - 2 • D 

1070 IF D < - F THEN 1060 

1080 D - INT < (D - 1) / 21 

1090 IF D - THEN GOSUB 2300: GOTO 
1230 

1100 FOR II - 1 TO F - D 

1110 FOR J - II TO 1 STEP - D 

1120 L - J + I) 

1130 IF l-i'.J.li * LEFT* !I*,30 - 
LEN (R*(J,I)() * R»<J,2> < 
- R*<L,I) + LEFT* (I*, 30 - 
LEN (R*<L.1))> ♦ R*(L.2J THEN 
1200 

I 140 FOR I - I TO FL 
1 150 X* - R*(J, I) 

1 160 R*IJ. I) - R*(L.I) 
1 170 R»<L, II - X* 

II BO NEXT I 
1 190 NEXT J 
1200 NEXT II 
1210 GOTO 1000 
1220 GOSUB 2300 

1230 FOR T » 1 TO F: PRINT Tl FOR 
I - I TD FLi PRINT R*i SPEED- 
ISO: PRINT R*(T,I): SPEED- 2 
53: NEXT It PRINT t PRINT : PRIN1 
10*1 NEXT T 

1240 O0SU8 22B0 

1 250 HOME 

1260 FOR T - 1 TO Fl FOR I - 1 TO 
Fl.jR*IT.I) - ■'"! NEXT Ii NEXT 
Tl RETURN 

I .'/,] REM ..«■........-..«» 

1270 REM CORRECTION 

12B0 HOME : PR INI " CORRECTION Tl 

E PICKS'* I PRINI : PRINT 
1790 BOBUB 3000 
I310 PRINT I INPUT "EDITION DU f 

ICHIER "101*1 IF Cll» - -(1" rHSN 
B01 ZOlOl GOSUB 20301 GOTO 



1330 

r.iiMii. -mi 



1340 GOSUB SOuOl IF T OR I 

F THEN INVERSE : PRINT "FIC 
HE INEi!ST*NTE "; FOR I = i it 

NEXT : ■■ 

: PRINT : PRINT : SOTO I 130 

I SSO P.1 * ■*": DOSUS - 

1360 INPUT "CETTE FICHE "ICHS3 IF 
1 ■;* - -N- Then HOne : pfi ;-n 
: PRIN1 : GOTO 1 130 

1370 INC-ur "NUMERO DE LIGNE A CO 
RRIGER '■: I 

1 375 HOME 

1380 FRINT -CORRECTION": VTAB 21 
: HTAB 1: PRINT L»: NFS! " . R" : 
r:".B-:jiU: input a*; print 
!i'f. PRINT Ai: VTAB 21: INPUT 

' IF LEN (An 1 .11 THEN PR1 

"LIGNE TFiOP LONGUE "|K<I)J- 
C MAXI": HOME : GOro 1330 

1 PRINT E*:r;Ft:".R"; Ti ",B":J ( 
1 1 : PRINT A*: PRINT Dl 

' HOME : print : PRINT : R* - 
■■■': GOSIJF J 

■ PRINT : INPUT "EBT-CE CORRE 

CI "»CM*I IF CHI ■ "N" THEN 
HOt* : I R1N1 i MK; I3S0 
' GOSUB S3O0 

■ HOME : PRINT : PRINT : GOTO 
1 280 



■151 REM ••- 

460 REM CATALOGUE 

470 GOSUB 6000 

490 HOME .- PRINT "CATALOGUE" 

: PRINT 

500 PRINT R* 

510 PRINT D*: "CATALOG" 

320 PRINT D*:"PR»0" 

530 GOSUB 2280 

540 HOME : RETURN 

541 REM .*............. 



550 REM RECHERCHE PAR L 

560 HOME : FOR I M TO FL: PRINT 

I" "A*II),K<I>: NEXT I 
370 PRINT : INPUT "OUEL NUMERO 

":J: PRINT : INPUT "OUELLE C 

LEF "SB* 
5BO GOSUB 3000: FOR T ■= 1 TO F 
390 PRINT L«rNF»J",R"tTt",B"IJl 
■ J): INPUT A*:A* - LEFT* (A* 

, LEN (B*)> 
600 IF A* = B* THEN GOSUB 4000 
O PRINT : PRINT : NEXT T: GOSUB 

2280 
620 RETURN 



t)£\ 














630 


REM F 


N 






640 


HOME : 


PR 


NT 




A 


ENTOT ' ■ 


641 


'": END 













650 REM SUP FICHIER 

660 HOME : PRINT "SUPPRESSION D 

E FICHIER": FRINT : PRINT 
670 INPUT " NOM DU FICHIER "IN* 

:NF* = N* * "F" 
680 INPUT " ETES-VOUS SUR " i CH* 

: IF CH* ■ "N" THEN 1660 

690 PRINT DL*iN»: PRINT DL»INF» 
: PRINT D»: GOTO 1460 

691 REM •••••••••••*••>•*»••«•» 



720 PRINT 0»!N*: PRINT DL*IN» 

730 PRINT 0»:N*: PRINT E*iN«: PRIN 

O: PRINT C*SN» 
740 J(l) - 1 
750 INPUT "NOMBRE DE LIGNE DE S 

AISIE "iFL 
760 FOR I = 1 TO FL: INPUT "NOM 
DE LA LIGNE *|A*(I)I INPUT 

"LONGUEUR MAXI "|K(I)|J(1 * 

I 1 - KM) . J(I): NEXT I 
770 LM » J ( 1 1 
780 PRINT 0*;N*: PRINT E*tN«: PRIN 



FL 



800 PRINT LM 

BIO PRINT C*!N»: PRINT V*1N* 

811 REM •••••••»••••••»........ 

820 REM CRE F.ACD 

S30 HOME :NF* - N» * "F" 

B40 PRINT 0*iNF*I".L"JLM: FRINT 

DL*SNF*: 
850 PRINT 0*;NF*i ",L"ILM: PRINT 

E*1NF*I",R"(0: PRINT Oi PRINT 



860 PRINT L*!NF' 

F: PRINT D* 
870 F - F + I 
BBO GOSUB 1920 
890 PRINT E*iNFi 



",R" 



INPUT 



PRII 



900 PRINT C*:NF»: PRINT V»!NF* 
910 GOTO 100 
920 HOME 

930 FOR I = I TO FL:fl • 2 • I ♦ 
2: HTAB 1: VTAB A: PRINT ft* ( 
II |-t*|K(l)| " C MAXI "1 NEXT 
I 
1940 VTAB 23: PRINT F: FOR I - 1 
TO FLlA - 2 • I * 2: HTAB 2 
8: VTAB A 
1 INPUT A*: IF A* - "/" THEN 
1940 
1960 IF LEN 1A*I > K<I) THEN HTAB 

28: VTAB Al GOTO 1930 
1970 PRINT E*INF*I ",R"IFt ",B"I JI 

[)■ PRINT A*i PRINT D« 
1 9B0 NE X T I 

1990 VTAB 24s PRINT "UNE AUTRE " 
|1 GET CH*I IF CH* » "N" THEN 
PRINT F: HOME : RETURN 

2000 F - F * I: GOTO 1940 

2001 REM ....•••••..•••.■.•••••■• 

2010 REM ENR F.SEO 

2020 PRINT 0*iN*[ PRINT L*IN»: INPUT 
FLl FOR I - 1 10 FLl INPUT A 
Kill INPUT Villi INPUT J< II 



2040 INPU1 LM: TRIM CtlN*| 

2O30 HOME I ODSUB 3000 

20B0 FOR T - 1 III ' 

2OT0 OOfflJB 4000 

2110 PRINT t PRINT 1 NEXT 1 

.■ 10 

I 1 •iril CtlNFtl RETURN 

2121 MM •••• 1 



IF . 



■ n* TtirN nnr.im SOOO 



INPUT "NIJMFMJ di: 1 



2140 INVII.'.il 1 fill. 1 - 1 TO --,1 HTAI> 
II VTAIl 11 PRINT " "I : Mi ■ 1 
1 1 NORMAL 

1190 im'-i '■' 'i 9i HTAI 

tl VTAIl 24i TRINT " "I 1 IIPXT 



: 'OF 1 - I 10 7*1 »T.-S. 
: MlAf- 
Il NCX! 

I: NOM 1 

2161 REM 

-■.--■ ■ ■ . 

■ : ■ ■ . 

' ' . ■ : . It POM 

'73, :5J: PD E 774, ■■;': PO»E T 

I ■<•• E 7 7 

FpfURN 
2181 REN 

2190 HOME : REn £-■ : 
2193 call 7A8:En ■ PEE1 

2200 IF £6 » II Cfi ER • 4 TtCN PRINT 
'1 GOSUB 
22BOE GOSUB 1460 
2203 JF Efl ■ ■> 'HEN PRINT "DISO 
UEITE PROTEBEf ! 
F ■ I 
ZT10 IF ER ■ 13 THEN PRINT "DON 
HER TEXT 
E S.v.i ■: 

I ', . . I : 

2215 IF ER - 9 THE.'; 

UETTE PLEINE VEUIU.EI ; 

SER'j GOSUP 2280t GOTO IO0 
21'lb IF ER = 77 OP EH - 120 OR F 

R ■ 16 OR 

"DERNIEFE SAISIE ERRONEE": GOSUB 
1 RE5UME 

2220 home : GOTO lOO 

2221 PEM 

223" HOME : HTAB 2: VT.it- 3: FRINT 

"DONNE2 LE NOM DU F1CHIER" 
2240 PRINT 1 HTAB 2: PRINT -| E I 

LUS UTILISE EN CAS DE " 
2230 PRINT : HTAB 2: PRINT "REPO 

NSE VIDE A UNE DEMANDE" 
2260 PRINT : HTAB 2: INPUT "DE N 

OM DE FICHIER "!M*:MM* = M* . 

"F" 

2270 RE TURN 

2271 REM •• • 

2280 VTAB 23i inverse : PRINT "S 

UITE APPUYEZ SUR UNE TOUCHE- 

: NORMAL 
2290 WAIT - 16384,128: WAIT 

16384,1.1: POKE - 16368.0i RETURN 
23O0 PRINT 0»:NF*;'-,l":LM: FOR T 

- 1 TO F: FOR I - 1 TD FL 
2310 PRINT E*iNP*l".R";Ti ",B"iJ( 

I): PRINT R*(T,I)t PRINI D* 
2320 NEXT I,T 

2330 PRINT C*INF*: PRINI D»: RETURN 

2331 REM 

2340 X - FRE (OH REM RECH. PAR 

CLES 
2350 HDME : PRINT TAEM 151 "RECH 

ERCHE PAR CLEFS" 
2360 PRINT : PRINT 
2370 FOR I ■= 1 TO FL: PRINT I" - 

A*(Il,l III: NEXT I 

2380 frint : print 

2390 input "n- de la ligne ou o 

pour l-ensemble "jm1 
2400 input -nombre de clefs "ih2 

2410 input "liaison des clefs if 

Tl OU (OU) "JNI* 
2420 FOP I - 1 TO N2: PRINT III INPUT 

"•CLEF - ";B»(1>: NEXT I 
24 ■■■■ HOME 
2440 IF Nl n THEN Al - NltA 

2 - Nil BOTO T 
2430 Al - I iA2 ■ 1 1 
2451 CI - O 
459 G'lDUB 3000 

2460 FOR T = 1 TO F 

2461 FOR J - 1 TO N2 

2462 FOR K - Ai TO A2 

24B0 PRINT L»:NF*i".R": T: ",!■"; J < 

V>! INPUT A»l PRINT D* 
2490 IF LEN (A»l '. LEN 1B»(J11 

THEN 2370 
23O0 IF A* - B*<J> THEN CI = CI . 

I: GOTO 2370 
2310 A3 - LEN (A*> - ( LEN (6* (J 

I) - 1) 
2320 FOR II - 1 TO A3 
2330 Al* ■ MID* IA*. II, LEN (P»l 

J) > I 
2340 IF Al* - B*IJ1 THEN CI - CI 

* Il GOTO 2370 
2550 NEXT II 
2360 NEXT K 
2370 IF CI » I AND Nl* - "OU" THEN 

GOSUB 4O0O:Cl - O 
2380 IF CI - N2 AND Nl* - "Et" THEN 

GOSUB 4000: CI - 
2390 NEXT J 
2620 CI - Oi NEXT T 

2640 GOSUB 2280 I RETURN 

2641 REM ■•••••*•>>.■*•• •' 

3000 PRINT a*lNF*t ",L"I LM: PRINT 
L»iNF*l ",R"lO: INPUT Fi PRINT 
D»: RETURN 

3001 REM ••••■■■.■■■•••>••••••■■■ 

4000 IF IN '. • 1 THEN SI » IQrlt 

TA - 2tB2 - 233i GOTO 4020 
4010 Si - 235:52 - 233tTA - 8 
4020 PRINT R*t PRINT TITB«d PRINI 
IO*i FOR I - 1 TO FLl PRINT 
L«)NF*I",R"1T|-,B-|J1I) : INCUT 
A*: PRINT !>*: SPEED- Sli PRINI 
R*i PRINT 14*1 PRINT TAB! T 
Alft*: NEXT I: ■.MID- B2l PRINT 
IB*: PRINT 10*1 RETURN 

30O0 INPUT -SUR DUEL FICHIFR "IN 

•|NF* - N* • "F" 
9010 IP N* - "" THFN N« - M*|NF* 
- MM* 1 GOSUB 2010 

3020 M mum 

3021 RIM ....................... 

33O0 HOME I VTAB 12! INPUT "UNE 
AUTRE IOIUI/IN10N "ICH*I IF 
CH* - "N" THEN PRINT C«INI-* 

I HOME 1 GOTO lOO 
3310 RETURN 

9911 REM •••...•..•••...... 

6000 INPUT "SUR 1MTRIMANIE ■■ t FJ* 1 
IN - 01 F'RINI I II III" <F. 
*, I 1 - "0" THEN «« - I 1*1 IN - 

II 14* - 13«i Rl HiF ri 

6i»io r* - "-I i4* - "1 pi run 



SOLITAIRE 



Le but du jeu est de retirer le plus possible de pions parmi 
48 disposes en 2 rangees le long du bord du damier (an- 
glais 8 x 8) ou de I'echiquier (francais). En enlever 30 a 39 
c'est facile. 40 a 44 difficile, 45 a 47 cela tient de lexploit. 
Le programme est tresfacilement adaptablea tout micro, 
il suffit de contr&ler le emplacement et la prise d'un pion et 
d'afficher I'echiquier. 



MP-F" 



Andre LEGRAND 




30 
fifl 


RE:i - - ■ ■ 

REN REGLES DU JEU 


320 

330 


PEN ■ - 

BIN T* £,&) -M ' 


70 




3*0 


FOR X - 1 TO 5 


73 


POKE 232.0 POKE 2.33.1** 


330 


FOR V — 1 TO 6 


Sfl 


restore cosui sew 






«1 


RQi'E 7«8.248 P0':E 769. 20 






98 


fop i ■ o to *o read a •■;•£ :-;-;-;* 






■• I 


A NEXT 


390 


FOR Y ■ 3 TO 6 


83 


GOSUB 7000 TEXT HOflE 




TiX.Y. - 


98 


HTAE 3 UTA8 13 




NEXT Y.X 


188 


print -VOULEZ-UOUS LIRE LA RSCE " 


420 


HCOLOR 3 HSR 






430 


SC&LE- 1 ROT" 


110 


UTftB 13 HT&B 1* 


*30 


FOR X - 6S TO 212 STEP IS 


170 


PRINT -0 tr 


*co 


HPLOT X, 14 TO :',. 150 


I SB 


GET R* IF P* = "N- THE" 30>3 


470 


NEXT 


140 


none 




HCOLOR - 6 


ISA 




450 


FOR X » 14 TO 138 STEP IS 


ISA 


PRINT -Il S'ACIT C'EN'-EttEP ^S PUIS 


500 


hplot ee.:< TO 212. X 


POSSIBLE' 


310 


NEXT 


1«1 


UTftE 3 HTAE 3 


5 30 


FOR X « 1 TO REftD ft' HTftB 9' 


170 


PRINT *D£ PtONS -LES PRISES -: '£-"-£". 


UTftE ft' PRINT X NEXT 


rUEHT" 




FOR X « 1. TO 6 REftD ft UTAE 1' 


171 


UTAB 7 HTi-E 3 


HTOE ft: PRINT CHP* (64 * :<> 


188 










543 


HCOLOR - 3 


1«5 


UTAB 9 HTAE S 


350 


FOR X • I TO 5 


198 


PRINT -RESULTATS 


560 


FOR Y - 1 TO 


?8B 


UTAB 11 HTftE 13 


570 


IF r<X.Y) ' 1 THEN DPftU 1 ftT X 


?10 


PRINT -J.) ft 35 > FACILE' 




IS * 39.10 J Y - * 


213 


UTfiE 13 HTAE 13 


300 

600 


NEXT Y,X 








223 


UTftE 15 HTftE 13 


620 


REN DEPLfiCENEHT 








230 




6 30 








233 


UTAB 17 HTftB 3 PRINT 'TCiPZZ 00 LO 


HTftB 3' UTAB 21 INPUT "SHUT DE • 


P50UE UOUS AVEZ FINI " 






269 






IF ft* - -00" THEN 1OO0 


itaire: 


640 


UTftE 21 HTftB 13' INPUT " A -;B» 


270 




642 


IF LEH fft*> < ) 2 OR LEN fB») 








< 

6*3 


> 2 THEN 625 
IF A* « "00" OP B* * "00" THEN 10 


200 


GET RS 


■toa 


pen 







630 rF At 

700 IP « 

710 IF Bl 
720 



1IDI E» :.; ££ • 

1 THt Al v TKEH ■ 
: OS -X :■ S THCN ■ 
THEN . 



1 >" 



7-r., 



~33 IF TO 

748 IF T< Bl ■ B2 B THEN -:i= 

750 IF T, . Al - SI 7, ftj . r: 

' 2 ' I 7 -E". 625 

"33 IF AES -l - El> ■ 2 OS 

(lis ■ -£ - ez i fMEH -::; 

763 FE7I 

770 p.ek CCUP aUTiJRtSe 

780 RED -■ 

790 HCOLOR * Q EP-H 1 ftT 1 -: • - 

* 59.16 l -1 - 4 
000 TCA1.A2) * 9 

810 T( ' At » Bl I -1 • 11 L 

= 
620 DPftU l hT ? i ■ i.i -. Ei > - 5? 

S <A2 * BZ> « 4 
530 TfEl.E2> » I 
6*0 HCOLOR « I ORAM 1 ftT 16 i 1 

♦ 39.16 * E2 - * 
630 SC - SC - I 

660 GOTO 623 

1000 PEH 

1010 PEN FIN DIJ JE'J 

1020 PEM 

1030 TEXT HOME 
10*0 S » 

1030 FOR X ■ 1 TO 6 
1060 FOR Y » 1 TO 9 
1070 S - S * T(X.Y) 
10SO NEXT Y.X 

1090 HTftE 4 UTA1 3 SPEEB" 60 

1100 PRINT -DEPLftCENEHTS ;■ ", 

1110 HTftE * UTiE 11 

1120 PRINT "PIOUS SftiJTES .■ "i 



IHITrftLI6ftTICN 



1130 UTftE 19' PRINT • 

U60 SPEED- SO 

1163 Ut * -UOUS ETES NIJL 

1179 S - *S - S 

1180 IF S > 29 THEN ft* ■ "UOiJS N 
ftS EU TROP DE fiftL 

1190 IF S > 39 THEN ft* » 'UOUS IK 
R0UILLE2 EIEN. . , 

1209 IF S / 4* THEN ft* « "C'EST L 
IT . ," 

1300 PEN - 

1310 REN EON PES'JLTftT ?? 

1320 P£M 

1323 POKE 769.20 POKE 768. 22S 

13*0 FOR ft * I TO LEN (ft*> 

1330 UTftB IS PRINT NID* (ftl.ft.1 

1360 NEXT A 

1370 FOP A - TO 2000' NEXT 

1580 HOME 

1399 UTftB IS PPIWT "UOULEZ-UOUS 



ENCCfl '- 

i3?3 speen- :*i 

ISM CRLL 77.) ;e* =< 

1610 IF R* - - :- -~r. c ,-, 

1613 if ft -.-;■. >,.;" 

1620 MONE ENO 



PEN - 



RC JtlHE SONORC 



*O10 

4020 REM - 

4039 data 173 -■::;: H4. 23-: « 
248-9 :■;: Kt>. :^= -j .> t -.- - 

5)00 ;£7i 

5010 REM •-;.-: :£ *;=-£-; 
5010 REN - 

5030 :-Tti io-:o io 0.9 9 s '■ 

44 61 60.*3« t* 6T 31 31 91 •■ 

4.37.46.46 *5 4- J7 i- ■■■■ •• -- 
.0.0 

3:00 pen --- 

5119 pe» _:;-.e: it :olonhes 

5-.I0 r£lr . 

3130 EftTu i .; ; ■..>■. j u.ir ;■ 

17,19,22,23-27-29 

6000 REN 

6903 =em -;r= -::- 

6010 PEM . 

6019 pop b = 770 ro -?o se-: E 

POKE A.I ME - 

6030 RETURN 

7000 PEN — 

7019 REN P = ESE'.TATION 

7010 PEN 

7030 HG8 HCOLOB ■ 3 ROT" 

7040 POKE 131. POKE 133.144 

?030 POKE 76-:-:00 POKE 769.10 

7060 POP ft » 13 TO 5 STEP - l 

7079 SCALE- - :P.A^ 1 ftT 192.104 

7088 HEXT 

7O90 HCOLOR ■ 3 SCALE- 1 

7108 EPftlJ 1 -T 101 ;00 

7110 ft* . -BAHIER SOLITAIRE ' 

7129 FOP ft ■ 1 TO LEN < htV 

7130 HTftB 13 UT&E 13 PRINT Ml 



7140 


pop t = i ro :oo next 


% 


7130 


POKE 769-20 CALL 770 




7160 


NEXT ft 




7170 


HCOLOR • 




7180 


FOR ft • 15 TO 3 STEP - 


1 


7190 


SCOLE" f CRAW 1 AT 102 


100 


7290 


NEXT ft 




721Q 


DPftU 1 ftT 102, 180 




7229 


HCOLOR - 1 




"30 


FOP ft ■ 3 TO 15 




7248 


SCftLE- A DPftU 1 ftT 102 


100 


7230 


NEXT ft 




7368 


HTftE 30 VTAB 10' PRINT 


"APF . 


7270 


HTAE 30 UTftB 12 PRINT 


■UNE 


7280 


SET P* 




7298 


RETURN 




7309 


REH ■»■■■•-••»»■■■—■•. 





BOMBER 



Vous §tes b. bord d'un mirage qui perd de ('altitude. Par- 
viendrez-vous a detruire la ville avant de vous ecraser ? 

J.M. DODDS 

Lejeu comporte plusieurs niveaux divis6s en deux parties. L'ordinateur 
vous demande de choisirentre "Bidasse" ou "grade". En niveau "Bidas- 
se" voire avion descend d'une ligne, chaque fois qu'il traverse I'ecran, 
tandis qu'en niveau "grade" 1'avion descend de deux lignes. Ensuite 
l'ordinateur vous demande de choisir une valeur comprise entre 1 et 18, 
determinant ta hauteur des gratte-ciels. Attention, le soleil se couche 
au fur et a mesure que vous changez de tableau. Mais tiendrez-vous as- 
sez longtemps ? 




faO CALL CLEftR 




70 SC»0 






BO HSC=0 






90 e-i 








CALL 


SCREEN (2) 




CALL 


CHAR I 


2B,"FF9191FF9I91FF91") 


120 


CALL 


CHARf 


36, -OOBOBOCaFFFFFECW ) 


17K> 


CALL 


CHAftf 


32, " 1B399ACE9BDF3767" 1 




CALL 


CHAfll 


44, "O0OO000O80C6F7FF- > 


ISO 


CALL 


CHARI 


43,"3F07030301117BFF") 


160 


CALL 


CHARt 


29, •FFFF99999999FFFF"> 


170 


CALL 


CHfiR( 


27 , "0O0O0O1 4OB0BOB0O" ) 


inn 


RANDOni ZE 




190 




= 1 TO 


16 


200 


CALL 


COLOR 


I. 1. 1> 


710 


NEXT 






730 


CO L 


COLOR 


8,5,1) 


230 


PRINT - 




2*0 


F-r. ] N 


• •*•••••• • " 


7WI 


MA" 


B844771 16F49291F" 


7ftO 


CALL 


CHAR<33,AA«) 


770 


CALL 


CHAR(43,AA«) 


mn 


Cf.LL 


CHARIbO.AA*) 


290 




-1 TO 


30 STEP 1.3 




CALL 


SOUNO 




310 


CALL 


COLOR 


1, INT(14«ftND*3),l> 






BOUND 




7,7^1 


CALL 


COLOR 


2, INT(1*"RND*3) ,1) 


340 


CALL 


COLOR 


4,INT(14"RND*3},1) 



•n-99/^ 



330 I 

360 f 
370 ( 



INPUT "VOULEZ VOUS LES REGLES 7 "i 

I IF (SEG*(0«. 1, H-"0">*(SEG*<Q4. 1. I)-' 
N 410 ELSE 760 
' CALL CLEAR 
i CALL SCREENI2) 

> CALL MCHARfl, 1,31,768) 
i FOR 1-1 TO 16 

> CALL COLORM.2, IS) 
I NEXT 1 

r A14-" DETRUISEZ LA VILLE. BANS 

> A2»-- TOUCHER LE SONNET DEB 

> A3«- N IMNEUBLES. TAPEZ UNE TOUCNE" 
BUR LA GAUCHE DU CLAVIER 
POUR LACHER UME BOMBE 

l'./i'.'i'r/i'.Mi'./.M 



S\WP uE 



BOO 
310 

52'j 

•>:u 

340 

530 

SAO CALL Hr,Hf>n<2*,L*2.A!JC 



TO I.CN<A»> 



370 IF L 


--2B THEN 5B0 ELBE 620 


SBO FOR V-0 TO 30 3TEP 3 


390 CALL 


SOUNOI-200. 1000, V) 


600 NEXT 




610 L-0 




620 CALL 


n0UNDU0,-3,3) 


;-•■. ll-lr. 


9E0»(A», 1.1)1 


640 NEXT 


I 


630 FOR 


• 1 TO S 


660 CALL 


SOUND (-1,3000, 22. -3, H 



670 PRINT 

680 NEXT I 

690 IF LL<>0 THEN 740 

700 A*>" TAPER UNE TOUCHE POUR 

710 LL-2 

720 L»0 

730 EOTD 540 

740 CALL KEY<0,K,SJ 

750 IF S-0 THEN 740 

760 CALL CLEAR 

770 CALL SCREENCB) 

7B0 INPUT ".1 POUR BIDASSE 

GRADE 



CONTINUER' 1 



N 7B0 
IB J(" I LEV 

) THEN BOO 




)+<BD>2)T( 
INPUT "NIVEAU CI ■ 
IF (LEV<-0)*(LEV>: 
CALL SCREEN(2) 
CALL COLOR* 1, 1.2) 
CALL COLOR 1 13, 1.1: 



B60 TT-1 

B70 LEV-10-LEV*9 

880 B=l 

890 J-0 

900 1-0 

910 SC-0 

920 CALL CLEAR 

930 REM AFF, DE LA VILLE 

940 RANDOMIZE LEV 

930 FOR 1-3 TO 32 STEP 2 

960 H-INTI (24-LEV)»RND*LEV) 

9/0 BAT-INT <2*RND*128) 

9B0 CALL VCHAR(H, I.BAT.24-H) 

990 CALL VCHARIH, I +1 , BAT, 24-H) 

100O NEXT I 

1010 CALL HCHAR(24,1,31,32) 

1020 CALL C0LORU3.2,* 



COLDI 



, I,T> 



1040 CALL CDL0RI14, 13, T> 

1030 C«LL C0L0RM6.9, 12) 

1060 FOR 1-1 TO B 

1070 CALL COLORM.Il.T) 

1080 NEXT I 

IO90 CALL C0L0R(15,2,T) 

11O0 CALL CDLORU2.9.T) 

1110 CALL ■> V.i i 1 .'■ .■■:■■> 

1120 IF S-0 THEN 1110 

1130 CALL B0UND(IOO,2O0,0) 

1140 FOR Y-l TO 23 STEP 8D 

1130 FOR X-I TO 32 STEP 2 

1160 CALL BCHAR(Y,X,0> 

1170 CALL HCHAR(Y,X,136) 

1180 CALL HCHAR(Y,X,32> 

1190 IF B<>32 THEN 120O ELSE J 300 

1200 FOR 1-1 TO 3 

1210 CALL SDUNDI-300,-6. 1"10) 

1220 CALL SOUND(-B00,-7,0) 

1230 CALL HCHARIY.X, 132,2) 

1240 CALL HCHAR(V,X,32,2I 

12S0 CALL HCHAR<Y-1,X,32) 

1260 NEXT I 

1270 CALL HCMARIY.X, 144) 

1280 CALL HCHARIY,X*1, 143) 

1290 GOTO 16B0 

1300 CALL KEY!!, K, SI 

1310 IF <SOO>»<B-1)THEN 1320 ELSE 1360 

1320 B-2 

1330 CALL 90UNDI-4000.4OOO.I0.-4.70) 

1340 I-X 

1330 J-V 

1360 ON D COSUP 2240,2060 

1370 NEXT X 



13 



i NEX1 ' 



1390 REM ••OABNCR 

4O0 RANDOMIZE 
410 OH INT<?»RNI)*1 
420 M»-"TREB MIEN 
430 OtlTO 1470 
440 M*-"B R A V 



. 1610, 1630 



490 GOSUB 2010 

500 IF LEV<-1 THEN 1320 

3!0 LEV-LEV-t 

320 IF TT>3 THEN 1630 

330 TT-TT-M 

340 ON TT GOTO 1350,1570,13' 

530 T-B 

360 GOTO 1670 

570 T-5 

500 GOTO 1670 

590 T-2 

600 GOTO 1670 

610 T-14 

620 OOTO 1670 

630 T-13 

640 GOTO 1670 

650 TT-0 

660 GOTO 1320 



710 RftNDDMIZE 

720 ON (2»RND-M)G0T0 1730, 1 750. I 770 
730 M4-"V0US N'AUREZ PAS V05 GALLUNS" 
740 GOTO 1790 

750 M»="HOF I!" 

760 GOTO 1790 

770 Mt-"VDUS VOUS ETES ECRASE" 
780 GOTO 1790 
790 GOSUB 2010 

BOO M»» M VDTRE SCORE EST: "!.STR*<5C> 
810 L-10 
B20 C-4 

S"0 OOSUB 201O 

B40 IF SC^-HSC THEN 18SO ELSE IBSO 
BSO MSC-SC 

B60 CALL SOUNDC2OO.300.OI 
870 CALL SDUND(340, 600.0) 
880 M»-"HISCOREl ~tSTRt(MSC) 
890 L-12 
90O OOSUB 2010 
910 M«-'UNE AUTRE PARTIE 7* 
920 L-20 
930 C-4 

940 GOSUB 2010 
950 CALL KEY(D,K,B) 
960 IF 9-0 THEN 1950 
970 IF K-ABCC-O-ITMEN 760 
980 IF K-ASCCN")THEN 1990 ELSE 1950 
990 CALL CLEAR 
200C END 

2O10 REM AFF. NESG. 
2O20 FOR A-l TO LEN(M«) 

2030 CALL HCHAR<L.C»A,ASC<5EG«(Mt,A,l> J 
2040 NEXT A 
2050 RETURN 
2060 REM TIR 

2070 IF (I-OI .(J-0) THEN 2230 
20BO IF J>-23 THEN 2250 
2090 CALL HCHARfJ, 1,32) 

J-J*2 

CALL C1CHARIJ. I, Otit 

IF OGT>32 DfEN 7130 

CALL VCMARIJ.I.I27) 

RETURN 

CALL HCHARIJ.l. 132,2) 

SC-BC*J 

CALL 90UND(-10O.-3,3> 

CALL S0UND(30O,-7,0> 

CALL HCHARIJ-I, 1.32,2) 

CALL HCHARIJ, 1.32.2) 

IF J*l >24 Til! fJ 1230 

r.Ai I MCMAAdJ + I, I. 144,21 



2180 
2190 
2200 
2210 
2220 
2230 



n-i 



470 



1460 Mt-"F 



.'.■,■. i HI il'i.n 



BON APPETIT, MESSIEURS ! 



290 •. 



t&^Z** 



ff o?*?£ 



PLUIE DE LETTRES 

Les exercices dits a trous sont 
tres couramment utilises dans 
les cours de langues. Le princi- 
pe en est simple : On propose a 
I'eleve un texte avec des mots 
qui manquent et qu'il doit re 
trouver. II y a plusieursfaconsd 
lemettre surla bonne voie. C'es 
surtout le contexte qui 1'aide 
parfois les mots a retro uver figu- 
re nt en vrac a cote du texte ; bre 
tous les enseignants connais- 
sent cela. 

Le programme que nous vous 
proposons ci-apres et est une 
amusante illustration. L'aide 
vient du ciel. En effet. les lettres 
qui composent les mots a trou 
ver jaillissent d'un chapeau e 
vont se promener dans le ciel 
Les lettres ont des couleurs dif 
ferentes suivant le mot auque 
elles appartiennent : voyez Ie 
couleur du curseur et vous sau 
rez quelle lettre va ou. Sitdt ur 
mot trouve, !es lettres corres 
pondantes disparaissent. II es 
prevu deux degres de difficulte 
dans ['option "difficile" il y a des 
lettres parasites qui brouillen' 
les pistes. 

Fidele a notre principe de don- 
ner a nos programmes une gran- 
de souplesse pour permettre a 
I'educateur de les adapter aux 
differents publics qu'il peut ren- 
contrer, trois utilisations sont 
possibles. 

1) Jeu pret a tourner avec les da- 
tas deja dans le programme 
d'origine. 

2) Jeu avec fichierconstitue par 
I'utilisateur en fonction de ses 
besoins propres et sauvegarde 
sur Disk ou K7. 

3) Jeu de competition oil cha- 
que joueur a tour de role entre 
une phrase des trous et des 
mots a trouver de son cru qu'il 
soumet a son adversaire pour 
qu'il releve le defi. 

Bon amusement et enrichissez 
vos connaissances. 

Jean SAHAL 



Cette semaine.un QCM new look, sur leZX 81. oil 
I'interet est plus dans la conception du QCM par 
les eieves que dans {'utilisation meme du QCM. 
La serie Jeux et Lettres continue, toujours en 
Anglais, avec Pluie de Lettres, un exercice a 
trous pas comme les autres. 
ELMO nous fait decouvrir (peut-etre ?) quelques 
aspects particuliers de I'ordinateur au service 
de la lecture. 

Et toujours les petits potins... 

P GLAJEAN 



TROUVEZ LE>IOT QUI MAfJCUE 



PAR DEMISE AMROUCHE-PODEft OIDI-JEAN SOHAL 



210 CALL C0L0R<2,3, : 
1,3, 16. 12,3.16) 
220 • 



',5, 16,10,5,] 



240 DISPLAY AT(3,21 : -VOULEZ-V0U5 7 * 

230 DISPLAY AT(6,*>!"1 JOUEB 

REER OU COMPLETER UN FICMIER DE OUESTIONS" 

260 CALL KEYIO.K.SI:: IF S' 1 OR K<49 OR K>50 THEM 260 



i if K-49 1 



i 360 



fUTIOM DU FICMIER 
300 CALL CLEAR :i DISPLAY ATC 
2 ADDITIONS A UN Fl 
310 CALL KEY(0,K,91i 1 IF Sc 1 OR I 
320 IF K-SO TMEN 330 
330 NDATA-0 :; GOTO 410 
340 ' LECTURE DU FICMIER EXISTAN 
330 OPEN HI ; "CS! -. INTERNAL, INPUT 
360 PRINT -LECTURE DU FICHIER" 
370 INPUT Hl:NDATA 



IER EXISTANT" 



W 



99l 



& 



INPUT »l:PHtn 



nOTl»(NDATAJ 



■X* !! M0T2*(NDATA)-Y1 
■UNE AUTRE FICHE 1 It 
78 DR Y.>79 THEN 460 



COM*<NDATAJ-C* 



310 FOR 1-1 TO NDATA : 
520 CLOSE «1 

a 30 soto 200 



• i : ph* in. hot i » < i j . hots* (ii, con* i : 



> • CHOIX DE LA VERSION DU JEU 

i CALL CLEAR 

) DISPLAY AT(4,4»i' , V0ULEZ-V0US UN JEU ■ 

) DISPLAY AT(7,3)t"l FACILE 

2 PLUS DIFFICILE- 



CALL CLEAR 



640 OISPLAY AT(16,ll!" 
630 DISPLAY ATI20,1>:- 
660 CALL KEY(0,K,S)M 

670 ON K-48 GOTO *J0O,i 



DATA .Si vol 



K>31 THEN 660 



flit, stcand mat »uppr 



I IH A RENTED FLAT. Lt VI 

'■'■■■■:■ _ ■ . I ..■'_: 

■;■■>■;■■ ■■ [ERI I 

.'■■ ■•<: HEN1 RMttV t« HOURS AGO.MENT.MO.MCN DID ft- U 

ll M»*£- 
r70 DATA NO HE WQt E UP AT NO11M.W0I E. NOUN. DID TOM DEI 

f-E .. :i»- NICE rof.T.GAVE.CO«T.HMfl' OIF -ou SET FO" ■- 
"tO DAfC Ml FORSOT IT i.£FOS£ HE l.EF 1 .F0»SG01 .LEF I .LOOt • IM1S IS tOn- 8 BO0» 
B'« DATA Hi W"!. HDRTING H"E'l I CATC. MAS. CMC, DID lOH - 
BIO DATA DAD rULD r£ he found A JOB. TULD.fOLUD.MHAT (** THE NEMS 
Bin DATA lOn HON E-UT JAO LUST . WON. LOST . W>::< I r... . 

■■ DA1A " ■" " 

'■- ■'-■"' ME>* !i DISPLAY AT(1S.31)-JC LIS LES DONNCE5- 

111 1*1 rO NDATA ii READ Wrt(Il.nOI|«iI»,HOT2«(lI,COH*ftlii NE I T 1 

I6U ■< ' ftfil JP DU PICMIER 

900 CALL CLEAR :: PRINT -LECTURE DU FICHIER" 

IV nrr f ■>' : -DS) I. ANSI ■, INTERNAI . H 'to I 2B INPUT 

■»2D INfUl ll i NDATA 
■•'■ • Of ] -i io NDATA :: INPUT tliPMSII > . r-OT !• 1 1 1 ,MDT2» . I > .CO"* ' I > ■ ■ NOT I 

V4n CLOSE 41 

930 ' 

960 REn CHOI. DES'OUESTIONS ' ' ' 

9;o IF NDATA-0 THEN 1070 

9B0 J-INT IRND'NDAIA) -1 

99' J CALL TRAlT(f-H4IJl.nOTl»<J>.r1OT2*IJl,C0f1»(Jl.DlF HI 

1000 DISPLAY AT(24,l)iRpT*l* ".2B1 

1010 DISPLAY ATI24, 11,-1 ENCORE / 2 MENU / ; FIN- 

102'.' CALL lEVI'i.l.SI:: IF S-0 OR I .49 OR ► 51 THEN 1000 

■ 030 IF i--,o then 2O0 ELSE IF K-31 Then CALL CLEAR it STOP 

1040 IF H-] THEN 9B0 

1030 FOR l-J TO NDOTA-1 n PH* I 1 1 -PH*U •! > : : n0Tl» ( ! ) -HOTlt. U-l >u hOT2» ( 1 1 -MTT3 

» 1 1 * 1 1 ! : CON* ! I > -CGM» 1 1 * 1 i : i NE X T I 

1060 NDATA-NDATA-1 || GOTO V70 

1070 DISPLAY AT(24,116EEP|-C P 1* tuldri pour .ujourdhui" ;: FOR 1-1 TO 300 :: Nt 

XT I : : GOTO 2O0 

1080 ' 

1090 * JEU A DEUX 

1100 CALL CLEAR 

UIO DISPLAY AT13.Il!-P(.nd-nt gu* I'un a., joueur* n* r«.rdi *-. 1 -«r.n. 1 - -ulr 

P lut prepare » Question" 
. I120 DISPLAY AT(B.I)!-Au tour *uiv*nt.on peut mvirwr le* rale*.- 
' 1130 DISPLAY OT124. lll---ENTER"*'pour contlnuer" 

1140 CALL KEYIO.H.SllI IF S' 1 OR K<>13 THEN I14C 

1130 CALL CLEAR :: G0SU6 1240 

1160 CALL TRAIT1A*. >;». Y*,C*,DIF.HI 

1170 DISPLAY ATI24, 1):RPT*1- -,28t 

HBO DISPLAY ATI24, 1)1-1 ENCORE / 2 MENU / 3 FIN" 
. 1190 CALL KEYIO.K.SlI I IF S- I DR ) '.49 OR ► ': 31 THEN 1170 

1200 IF K»49 THEN 1130 ELSE IF 1-30 THEN 20ij ELSE CALL CLEAR n STOP 

1210 GOTO 1100 

1220 ! 

1230 ! »»l*ie □e"ra~pnrI*e~et~de*"mot* i'iuppriier 

1240 DISPLAY AT<4, 11: "taper 1 ■ phra*e Que voug vaulmz Inn conitrulri <u 

1230 ACCEPT ATI9,IieEEP VALIDATE1UALPMA, -■ "1SIZE12SI |A« 

1260 DISPLAY ATlll.l)i-t«pe; le premier ™ot que vou* voul« *uppn«er- 

1270 ACCEPT ATI14. 1IDEEP VAL I DATE (UALPHA, - • " 1 S I ZE 12B1 : I* II Xl-POSI" •..!■ 

"fcX««.- -,l)n X2-LENIX*):: IF Xl-O OR I2-0 THEN 1270 

12B0 DISPLAY ATtl6.1H"tjpe; 1» *ucona *ot que vou* vouln; ■uppnawri* 

1290 ACCEPT AT119.11BEEP VALIDATEIUALPHA. IS1ZE'2QI:Y* n Yl-POSt" ~Vn%t,- -.- 

-iY»(.- ".Hi; Y2-LENIY*)!; IF YI-0 OR Y2-0 THEN 1290 

1300 IF X2*Y2>23 THEN DISPLAY AT ( 24 , I I BEEPl "TROP LONG" II GOTO 1270 
1310 DISPLAY AT<21.1> t "COW1ENTAIRE i" t! ACCEPT AT ( 2S, 1 1 51 ZE 1 281 I C» 
1320 RETURN 

1330 ' ——■«■—■—■ .1 ■..—.■■.———————————- rimwiM 

1340 REN SOUS PROGRAMHE POUR POSER LA QUESTION ET SAISIR LA REPONSE 

1330 SUB TRAIT<A*.X*.Y*,C«,DIF.H1 

1360 H-0 .i Xl-POS(A*.x*, un Yl-POS(A*.Y»,li :: X2-LEN(X»li. y2-lEN(Y«I 

1370 CALL CLEAR :: CALL COLOR 10, 1 3. I 1 

1380 DISPLAY ATI19. IliSEG*<A«. 1 . X 1 - 1 I I.RPT* I - - . X21 6SEG* ! A*. I I * X2. Y 1 - X 1 - X-l tRPT* ( 

" ",Y2)tSEG»(A*.Yl*Y2 1 30) 

1390 DISPLAY ATI21, Ili-l-iCtt"!- 

1400 CALL S0UND(3OO0,-3.3) 

1410 CALL SPR!T£{»2S.12B.2.110. 12B) 

1420 FOR 1-1 TO X2 |l CALL SPRI TE ( e I . ASC (SEG* I X*. I , I 11 , 1 , 96, I 20. -20«RN0, 4O.RN0-2 

1430 IF OIF-l THEN CALL SPRI TE <• 1 I2*Y2« 1 > , 63*RND»25, 1 , 96. 1 2B, -20'RND, 4O«RN0-2OI 

1440 FOR I-X2M TO X2-Y2 ll CALL SPR1T£1*I.ASC<SEG»1Y*. I-K2.I) ). 1,96, I2B.-20»RND 

, 40»RND-2O) I I NEXT I 

1430 IF DIF-1 THEN CALL SPRITE!" (X2.Y2*2) ,6S.RND«25, 1 , 96, 128. -2o«RND. 4U.RND-201 

1460 FOR 1-1 TO X2 II CALL L0CATE(»1 .96. 1291 I I CALL COLOR I* I , 1 31 I i NEXT 1 

1470 IF DIF-1 THEN CALL LOCATE <■ I X2. Y2* 1 1 . 96. 1 28) I I CALL COL np 1 • I ■? -Y2' I ) , 1 31 

I4B0 FOR 1-1 TO 1000 :i NEXT I 

1490 CALL S0UND(3000,-3,T) 

13O0 FOR 1-12*1 TO X2*Y2 i: CALL LOCATE tel , 96, 12B) I I CALL COLOR ( • I . 7 1 I . NEXT I 

1310 IF DIF-I THEN CALL LOCATE I « I X2' Y2»21 . 96, 1 281 I I CALL COLOR <■ (< 2>Y2*2I . 71 

1320 CALL DEL5PRITE!«281 

13IO DISPLAY ATI23, lli"t»pei le mat puj* '•"ENTER--" n DISPLAY AT (24 . I ) i "oue de* 

-"H~"pour la *olution- 
1340 ACCEPT ATU9.XI18EEP VAL f DATE 1UALPHA 1 S I ZE i -X2» I REP* 
1330 IF REP*';>X* AND REP*ORPT«(-H-, X21THEN 1340 
1360 IF REP«-RPT»("H' , ,«2)THEN H-l ELSE CALL SOUND < 1 00. BOO. 3 1 
1370 DISPLAY AH19. XI )SIZE(X2( I X* 

1300 FOR 1-1 TO X2 Ii CALL DELSPRI TE <•! > I i NEXT I 
1390 IF DIF-1 THEN CALL DEL SPRI TE I « <2*Y2* 1 I 
160O CALL C0L0R(O,7.1l 

1610 ACCEPT ATI19.Y116ECP VAL I DATE (UALPHAl SI ZE I-Y21 I REP« 
1620 IF REP»':>Y* AND REP*. •RPT*(-H-,Y21 THEN 1610 
1630 IF REP»-RPT»<"H". Y2) THEN M-l ELSE CALL SOUND ( 1 00,000,31 
1640 DISPLAY AT(I9.Y11SIZE(Y2)IY* 

1630 CALL DELSPRITElALDll CALL I1CHAR ( 23. I , 32, 64 1 
1660 SUBEND 



KJKEKOI 

L'informatique avec les 6/12 
arts : I'ordinateur pedagogi- 
que. 

L'exp6rience de l'informati- 
que en classe est encore tou- 
te jeunette (les ordinateurs 
-■ansles classes primairesde- 
puis plusde 3ans ne sont pas 
legion...). 

On peut deja, cependant. 
analyser I'intervention infor- 
matique aupres des 6/12 ans 
(sans prejuger des plus jeu- 
nes ou plus ages...) selon 
quatre axes (schematiques... 
mais principaux quand me- 
me !) ; 

Que peut -on demander a l'in- 
formatique en milieu dit "edu- 
catif" ? 

1-de mettre en forme, con- 
server et transmettre des in- 
formations (savoirs, recettes. 
communications, habitudes. 
usages culturels, etc.). 

2- De permettre la systemati- 
sation, I'entralnement, I'ame- 
lioration des performances. 

3- De simuler des situations 
(evolutives ou non...) qui res- 
teralent sou vent inaccessi- 
bles sans la fiction inforrnati- 
que. 

4- D'offrir les moyens de "se 
forger ses propresoutilsd'ap- 
prentlssage" (piaget. Pa- 
pert...). Et done d'etre criti- 
que vis-a-vis de ces outlls. 
Ces quatre reperos devralent 
en principe s'harmoniser, se 
completer dans tout milieu 
d'informatlque "educative". 
lis ne so placent pas tous sur 
le meme plan, sans doute, 
mais ils offrent uno grille pra- 
tique pour ('analyse d'une ac- 



tivity informatique. 
On observe, par exemple que 
les didacticiels les plus sou- 
vent proposes aux pedago- 
gues avides que nous som- 
mes. rSpondent largement 
aux criteres 1 et 2, I'eventail 
se refermant sensiblement 
pourle3 8 . Quant au 4"critere. 
hormis les mondes LOGO, il 
fait figure d'intouchable ! 
Cette rubrique se donne pour 
objectif de tenter une appro- 
che "en diagonale" de la grille 
proposee ci-dessus. 
Avec Quo! ? 

En classe, on ne roule pas sur 
I'or... Void le materiel opera- 
tionnel le moins coOteux : 
Un XZ 81 + 64 Ko RAM + Cla- 
vier ABC 4- un systfeme de 
chargement rapide (pour uti- 
liser reellement la memoire). 
Comment ? 

Pour illustrer la demarche de- 
finie, partons d'un vieux clas- 
sique de I'E.A.O. : le QCM (- 
"biberon tetine (informati- 
que) chere tfite blonde"). 
Comment devier cette logi- 
que sclerosee ? : Elementai- 
re, mon cher W... grace aux 
"utilltalres". C'est-a-dire des 
annexes au programme prin- 
cipal qui ouvrent a des attitu- 
des nouvelles. 

Place au pepe QCM, rebapti- 
s6 pour la circonstance : 
KIKEKOI surZXBI 
Le jeu : 9 series de 10 "mots" 
(20 lettres maximum) 3 defi- 
nitions (32 lettres maxl) pour 
chaquo mot. A la fin do cha- 
que serle, un score est affl- 
che. 

Jusque Ifl rlon do nouf. Mais 
un coup d'csll aux menus 
nous renseigne sur les possl- 



bilites du programme. Ces 
menus ont pour fonction de 
rendre le programme totale- 
ment "transparent" a I'utilisa- 
teur qui se trouve 6tre egale- 
ment "createur" par la possl- 
billte qui lui est proposee de 
rentrer les donnees dans I'or- 
dinateur. Seuls sont "prote- 
ges" dans le menu 2, les re- 
ponses aux mots et la routine 
d'effacement des noms des 
joueurs. 

La discussion des notions a 
entrer et I'analyse de leur 
mise en forme necessaire est 
sans doute la phase la plus ri- 
che et la plus interactive du 
deroulement du programme. 
Evitons de 1'escamoter !! 
On peut multiplier I'usage du 
KIKEKOI en modifiant les 
mots "EXPLIQUE" (ligne 850) 
et "C'EST" (ligne 860). Par 
exemple. "CALCULE", "TRA- 
DUIT-, "CHERCHE" etc... 
Cdte utilisateur la memorisa- 
tion des performances de 20 
"joueurs" qui peuvent repren- 
dre le programme par la suite 
la ou ils I'avaient laisse s'ave- 
re precieuse. Tant pour I'en- 
fant qui voit son "tableau" a la 
demande que pour I'adulte 
qui pout suivre Io progression 
de chacun d'un coup d'oail et 
sans s'encombrer de pape- 
rassos... 

Des KIKEKOI "tournent" de- 
puis 1 an avec des enfants do 
tous ages et il s'est alnsi per- 
foctlonn© avec Io temps. Si 
vous I'utillsoz, on famille ou 
on classe, faltes-nous [alt do 
vos romarques. suggostlons 
et trouvailles. Elles soront les 
bienvenuos. Mercl f 

BOUGI 



ICOPYRIGMT) BOUCfl 1934 



1O0 PRINT 



IG Cl_5 

11 PRIKT RT 
J GENERBLE" 
1^ .-FJINT .,, 



105 

us 



"INITIRHSflTl 



INPUT n|IK,RI 

PRINT 

PRINT 

■':R: ■') 

INPLIT B*I 



PRINT ,,C |IK.R| 

pr int . , ■•Samtm 



13 FOR Ina* TO 56 STEP 

14- GOSUB I 

IS STOP 

IO NEXT I 

^O G0TQ60 

33 REM I 

.-'.'.- dih jfaoTsa 

2S RETURN 

27 REM '~ - 



32 DIM 

3-1 RETURN 

35 REM 










16Q 

17B 
175 
180 

iga 

2BD 
21Q 


INPUT D* (K,RI 

PRINT . .D« IK .R) 

IF INKEYf t- >"" THE 

IF INKEYI-'" 1 TMEN 

RETURN 

CUS 

NEXT n 


A GOTO 
OOTO 1 








330 

1U 
25Q 


IF tHKCrttM"" THEN GOTO 3 
IF INKCY»<1"0" THEN GOTO 

GOTO Bfl 



36 DIH 
15 RETUI 
3*3 REM ' 



■I -3 REM iSWMH 

■l.l DIM R« (9, li 

.It> RETURN 

4.7 REM fag 

J.S DIM a*<9, 1 

50 RETURN 

51 REM F - 



,.l II' I I 

>__'.? PRINT RT 5 .. B ; X * . 



','■, hp n 

•5G DIM 

-,<?. RETU 

SB LET 

65 PRIK 

I r .. 

-O PRINT , , . , 
F POUR MENU 3 
Ii-lf'UT U2 
: PRINT ,U3 

iiiu3C aaa 

1 OTO MENU 

.■ I'lin 



■ ■ f ■ I. n r 

'.'. INPUT 

i ! I- 

g -.1 ■ 




m 

'■0O".TRB 31 
2AO PRINT RT 
KIK.EKOI 

-..,,- - -■ 



PRINT RT 13,6 




.' . P . 



uoueu 



"QUEL NOMBRE CC 



._ INPUT M« 

370 IF Mf.*""' OR M«-" " THEN GOT 
O 3GO 

3tJa IF l.F. n rH>l* THEN OOTO 3GO 

30B REM | 

■;-ipi l ( t 

« on for in i tci av 

illl IF M«-N*(I, TO LEM M»l 



LEt^1*dLl*J!HEN Gl 



-MO DE SERIE ?"; 
1 OR K>9 THEN OOTO Be 




THEN GOTO 74Q 

-.■ i7,«j"OM SE CtlNMIU 
"EST-CE-PRST" 

IH1 -2Q THEN OOTO 770 



MICRO-INFORMATIQUE 

ET LECTURE 

S. NORA 6crit ; "L'informatique 

va aussi bouleverser une cultu- 
re individuelle, co nstitueeprin- 
cipalement de l'accumulation 
des connaissances ponctuel- 
les. Desormais la discrimina- 
tion residera moins dans le 
stockagedessavoirs, etdavan- 
tagedans I'habiieteachercher 
etautiliser. Les concepts I'em- 
porteront sur les (aits, les itera- 
tions sur les recitations. Assu- 
rer cette transformation serait 
une revolution copernicienne 
pour la pedagogie." 
Un element de transformation : 
la lecture. 



ELMO 

Entrainement a la Lecture sur 

Micro-Ordinateur. 

Un didacticiel d'entralnement 

a la Lecture. 

LIREou pourquoi ELMO 
Le francais est une langue al- 
phabeti'que et I'ecrit francais 
peut etre traitede deux man te- 
res au cours de I'activite lectu- 
re, soit directement. soit par la 
mediation de I'oral. 
Dans le premier cas, le regard 
explore et questionne directe- 
ment la chame ecrite. Dans le 
second cas. lesystemede cor- 
respondence entre les sons et 
les lettres permet de creer de 
I'oral a partir de I'ecrit et de 
"comprendre" cet oral. 
Cesdeux manieres nesontpas 
equivalentes. Quand on explo- 
re un texte directement avec 
les yeux, la vitesse de lecture 
integraie est general em ent 



comprise entre 25 et 50.000 
mots/heure. Quand on consti- 
tue, memesilencieusement.un 
oral intermediatre.lavitessede 
la lecture est subordonnee a la 
vitesse d'ecoulement de la pa- 
role entre 8 et 12.000 mots/ 
heure. 

En France, toutes les observa- 
tions confirm ent que 70% dela 
population lit en oraiisant. Lire 
est alors un exercice si long et 
difficile que forte est la tendan- 
ce a fuir I'ecrit, ce qui est un 
obstacle a toute democra- 
tisation de 1'enseignement. 
de la vie socio-politique ou 
culturelle. 

C'est done pour ces raisons. 
mais aussi pour permettre. 
dansledomaineprofessionnel, 
une meilleureefficacitede lec- 
ture, que le didacticiel d'entraT- 
nement a la Lecture par Micro- 
Ordinateur (ELMO) a ete 
elabore. 



LES PR1NCIPES 

D'UN ENTRAINEMENT : 

Six types d'exercices vont etre 
proposes a u lecteurafin d'aug- 
menter cette efficacite (qui 
peut etre definie comme te- 
nant comptedela vitesse etde 
la comprehension), Ainsi, s'en- 
traTnera-t-il tour a tour 

• a elargir le champ de fixation 
del'ceil, 

• a ameliorer les possibilites de 
discrimination. 

• a developperla rapidite d'ex- 
ploration d'un texte, 

• a renforcer des comporte- 
ments d'antictpation et 

• a se co ntraind re a lire a une vi- 
tesse superieureaun minimum 
determine. 



L'organisation du didacticiel : 
individualisation. progression, 
souplesse, adaptibilite. A ces 
techniques eprouvees d'en- 
tralnement a la lecture. I'em- 
ploi de micro-ordinateur ap- 
porte des possibilites supple- 
mentaires. En particulier, une 
individualisationdesession. La 
machine, a partir detests regu- 
liers. propose des evolutions 
en permanence adaptees. 
Parce qu'il est fonde sur des 
seances d'une qui n2ainede mi- 
nutes, I'entramement (d'une 
duree totale moyenne de 20 
heures) est doncsoupleet pro- 
gressif. Et du fait dela vaste bi- 
bliotheque de base que com- 
pose ce didacticiel (plus de 
120 heures de dialogue possi- 
ble), ii peut aussi bien etresuivi 
parun enfant que par unadulte. 

VOUS AVEZ DIT : LIRE ? 

LIREAL'ECOLE 

SUR MICRO-ORDINATEUR. 

Villers-Cotterets, dans le "bas" 
de i'Aisne, une ecole dans le 
faubourg de Pisseleux. Une 
ecole neuve, une ecole ouver- 
te... Des I'ouverture, une equi- 
pe pedagogique essaie de se 
constituer autour d'un projet 
ayant pourfinalite la lutte con- 
tre I'echec scolaire et la modifi- 
cation de certaines pratiques 
(pedagogie du projet - prise 
en compte des problemes 
de 1'education par le corps 
social...). 

Les objectifs ont conduit 
1'equipe a faire de la lecture un 
des axes principaux de la re- 
flexion etde I 'action. Constitu- 
tion d'une bibliotheque centre 



de documentation (BCD) - lieu 
de rencontres - enfantsd'ages 
ditferents- parents -lieu d'ani- 
mation ; presentation de tra- 
vaux, de livres ; table ronde 
autour d'un theme, heure du 
conte ; animation par les en- 
fants. par les adultes. 
L'ecrit estpartoutpresent. II n'y 
apasdelivredelecturemaison 
a recours a toutes les formes 
d'ecrits. On n'enseigne pas la 
lecture, on aide I'enfant dans 
ses apprentissages. 
L'informatique entre dans cette 
logique par I'Entramement a la 
Lecture sur Micro-Ordinateur 
(autrement dit ; ELMO). Une 
cinquantaine d'enfants utili- 
sent ELMO du CE1 au CM2. Au 
CE1, ils travail I ent par deux. Par 
la suite, ils I'utilisent pour la 
plupart du temps tout seul. 
Inscription, changement de 
diskettes, suivi des resultats. 
planning. Souplesse, indivi- 
dualisation ;lesenfantsensont 
tres demandeurs : aulant pour 
les "deja" lecteurs que pour 
ceux qui ont desdifficultes.car 
en meme temps il y a I'appro- 
che dela lecture et I 'apprehen- 
sion de la machine : le clavier - 
I'ecran - la placidite de I'appa- 
reillage - GOUPIL Ii ou IN ne 
s'enerve jamais. 
Lorsqu'on s'entrainesur ELMO 
on ne lit pas, mais on met en 
evidence -pour les renforcer - 
des strategies de lecture. 

STRATEGIES DE LECTURE. 

ELMO n'estpasunefinensoi. II 
ne remplace pas un super-bled 
informatise, il ne remplace pas 
un "cours" de lecture. 
C'est uneaide. 
Aide ala reflexion sur l'"acte 



de lire". Elmo se situe dans un 
contexte. dans un projet peda- 
gogique ll renforce. par des 
exercices de systematisation. 
des strategies de lecture . 
exploration, anticipation, iden- 
tification... 

Pour information, voici les buts 
de chacune des series utilisees 
dans ELMO : 

-SERIE A - 

II s'agit defavoriserl'elargisse- 
ment du champ utile lors d'une 
fixation de I'ceil et. dans le me- 
me temps, d'accroitre la fami- 
liarisation avec le vocabulaire 
fondamental. 

- SERIE B- 

II s'agit encore de travailler au 
niveau des points de fixation du 
regard, cette fois, au cours de 
I'activite lecture, e'est-a-dire 
dans un deplacement horizon- 
tal et sur un texte. ll s'agit de 
donner I'habitude de lire par 
fixation d'empans de plus en 
plus longs en contraignant a 
des deplacements artiticielle- 
ment grands entre des empans 
reguliers et sans possibility de 
retours en arriere. 

- SERIE C- 

II s'agit, a travers cet exercice, 
d'ameliorer les possibilites de 
discrimination, ce qui permet 
d'identifier les mots avec plus 
desurete, plus de rapidite, plus 
de faciiite ; conditions neces- 
saires d'une bonne compre- 
hension. En meme temps, puis- 
que I'entrainement se fait sur 
un materiel choisi pour sa fre- 
quence, on assure une revision 
permanente du corpus le plus 
fondamental. 



- SERIE D- 

ll s'agit de developper la rapidi- 
te d'exploration dun texte Si 
on cherche une information 
dans une encyclopedic, il exis- 
te des strategies (recours a une 
table, un index, etc ) qui dis- 
pensent de commencer 1'ou- 
vrage au premier mot de la pre- 
miere ligne de la premiere 
page... 

Mais si Ton cherche une infor- 
mation dans une page, il existe 
aussi des strategies qui dis- 
pensent de commencer par le 
premier mot de la premiere li- 
gne Et si I'on veut lire mtegra- 
lement cette page, ou ce para- 
graphe. II est preferable d'en 
avoir au depart une physiono- 
mie d'ensemble. une sorte de 
canevas qui permet de situer 
les elements les uns par rap- 
port aux autres et chacun par 
rapport au tout C'est done le 
but de cette sened'aider I'utih- 
sateur a organiser rapidement 
un texte sans le lire, pour mieux 
te lire ensuite... ou ne pas le lire 
s'iI ne correspond pas a la 
preoccupation du moment. 
II s'agit done de demander a 
I'utilisateur de trouver tres ra- 
pidement une information 
dans un texte. 

- SERIE E- 

II s'agit de renforcer les com- 
portements d'anticipation, 
e'est-a-dire qu'il faut aider le 
I ecteur a mobiliser toute I 'infor- 
mation deja recueillie pour pre- 
voir au mieux ('information a 
venir. C'est en fait ['utilisation 
pedagogique. au profit de la 
lecture, de I'epreuve de closu- 
re. Celte anticipation depend 
Suite page 19 



KIKEKOI. UN QCM 
TRANSPARENT 

Mode d'emploi : 
N'oubliez pas le RAMTOP ! 
(POKE 16389. 255+N/L puis 
NEW+N/L). 

On initialise les variables et 
tableaux : 

RUN 10 donne un message et 
9/15 en bas a gauche. I! faut 
alors taper 9 fois "CONT" 
(touche C) + N/L. 
Maintenant plus jamais RUN ! 
mais GOTOO ou GOTO ME- 
NU. 

Et voici le menu principal 
(MENU1) qui donne acces aux 
7 choix que nous allons etu- 
dier un peu. 

1) CHARGEMENT DES MOTS 
PAR SERIES : On indique la 
serie a remplir puis, pour les 



10 "mots" successifs de la se- 
rie, on donne a la demand e de 
I'ordinateur le "mot" choisi, 
sa definition exacte et les 
deux reponses fausses. En 
cas de fausse manoeuvre, on 
passe au mot suivant. La cor- 
rection se fait avec le choix. 
2) ECRITURE (CORRECTION) 
D'UN MOT ; 

On peut choisir le n° de serie 
et le n" de mot a modifier. On 
peut egalement corrigerla to- 
tality ("mot" plus les 3 repon- 
ses) ou bien 3, 2ou 1 reponses 
seulement. (le choix 3, par 
exemple, indique que I'on va 
corriger uniquement les deux 
"reponses fausses" du mot 
appele. 

Lorsqu'on a ainsi rempli un 
nombre sufisant de serie (4 
ou 5 au maxi.} on peut lancer 
le jeu. 



aea print mr i9.o;"i nous en 

MMES R Lfl SERIE= " ; vlH) 
■1 9a PRINT RT 31/ ' 



494 


IF INKEY*<>"" THEN GOTO 494 


500 


IF INKEYS = "" THEN GOTO d96 








530 


LET Z = INT (RNDElB) +1 


540 


FOR Y-l TO 10 


£50 


LET X = INT (RND S3 t +1 


aae 


BOSUD BQ0 






see 






NEXT Y 


630 


REM ■!■ ■ 


610 


CLS 






525 









PRINT , ,TRB 10: • 
. n [Dl 

535 PRINT RT 7,6, "POUR LR SERIE 
" ; V ( D J 

640 PRINT RT IB, 3, "REPON5C5 EXR 

CTES : ";P; ■" 5UR IB"' 

545 GOSUB 5100 
650 LET U(DJ=U(D) tlP>7) - '" 




'JlfTINUE 
690 POINT , " (SB POUR MCNUJ '■ 
700 IF INKEVI^"" THEN acrro fOa 
710 IF INKEY* = "0'- THETJ GOTO 500 
715 IF IMKEY»-"M" THEN GOTO MCN 



7*« PRINT RT 17,2, "BRnvO, 

TOUT TCRMIME../' 

7A.3 rOR 1-0 TO 1O0 

744 NEXT I 

7*B CL5 

74B PRINT RT 



770 PRINT RT 13, 
uc a«) iMirrnr-.. . . 
750 PRINT ,,-' 

H GOTO 

,'-,-. i".:n 

'■Ji'ji-J CI." 

ma r-Hitrr rrr 3,16; "QUESTION 

>■"':■ If YH THEN PRINT RT 4,1 
(MOYENNE: "' j (INT (1«0<IP/(V-1 



/1H 
F130 



; i i 



■mi • (c« 



«f 



1D» I 



x-ai * 



RNf > 



J ,7.1 t\W X - 3 f 
l)T. LET Rf (SlolDf IVIDI . '.' i RND 
B X-31 » to* (U ( 



3) JEU : 

L'ordinateur demande le nom 
du joueur et verifie s'il ne le 
connait pas deja. Si oui, il lui 
dit ou il en est (toujours im- 
pressionnant les premieres 
fois !...). Un nouveau joueur 
commence a la serie 2. 
En fin de serie, le score est af- 
fiche avec un commentaire 
succint et la serie prevue au 
vu du resultat est proposee. 
Si le joueur ne desire pas 
poursuivre, l'ordinateur de- 
mande le nom du jouer sui- 
vant. 

4) LISTE DES JOUEURS : 
Routine qui permet de savoir 
le nom de tous ceux qui ont 
joue et le num6ro de la pro- 
chaine serie qui leu r sera pro- 
posee et le numero de la pro- 
chaine partie. On a aussi le 



RND X = ll 

S LET Rt(3)=IB»!UtD),I 

KC$(UtD>,tl RND XalH 

i RND X=2) 

3 PRINT RT Q . : '-E*T3"*W 

J tDJ ,Z) 

3 PR INT M RT 1 , B : "SERIE 

3 FOR £?1 TO 3 

3 PRINT RT I*B, l; •'<": I 

r 2tU6 ,0;r$(d 

3 PRINT '■ 



300 NEXT I 
.310 IF INKEY*<>"1" RND INKEYtt' 
^a" RND INKEY*o"3" THEN Gofo*3i 

11? leT r^-P^u^^* 

^ rn! TStjJP nND <u- x ,, +< - 

350 FOR 1=1 TO S 
^ffrr PF ?? N I,?T U *&-5, tT$ RND (I.-S 
NT (I ^2] ) ) 

970 NEXT I 
. 360 RETURN 
4BUO REM 

taaa print rt xs.xi-xtrr ti 

3l;"BONJOUR , -IM* 
104.0 FOR D-l TO 20 
1050 IF N* (Dl =" 
HEN GOTO 1090 
1060 NEXT D 
1070 PRINT RT 19,0 
'■'RI PLUS RSSEZ DE 
N5 HR MEMOIRE..." 
10S0 GOTO 1050 
1090 LET N* CD) =H« 
1100 LET U (D) =3 
1110 LET H=D 
1120 LET H CH» »1 
GOTO A 90 



RNC 



"DESOLE. JC N 

PLACE OR 




.- 130 PRINT 

2140 PRINT , , - 

D* C",T; ",■■; F" ". 

^150 PRINT ,.D*IT.F) 

22C)Z PPINT RT 21, iB; 



NKEY»<1"0" THEN GOT 

C 10 THEN GOTO 2300 
F=0 

THEN LET T -T * 1 



;;:)B8 cls 

230B LET r.F U 

2310 PRINT "■^■Bl 

a32M pr int ■ mfm ' 

2350 goto amam^ 

jaou urn I M_l k£m.\ 1 1 

3004 CLS -™~ 

3006 PRINT 



"ECRITURE D""UN MOT" 



numero du joueur qui permet 
de lire les performances. 

5) PERFORMANCES : 
Cette routine montre au 
joueur dont on a donne le nu- 
mero un tableau graphiquede 
ses resultats. (max. 20 par- 
ties), sous forme d'histo- 
gramme = un "FAST", puis : en 
abscisse le nombre de parties 
effectuees, en ordonnee le 
numero de la serie pour che- 
que partie (hauteur de la co- 
lonne grisee). Pose sur cna- 
que colonne, le score realise 
pour cette partie. 

6} SAVE : 

Sauvegarde du programme 
(avec toutes ses variables) le 
demarrage apres le charge- 
ment est automatique et ren- 
voie au jeu. 

3030 INPUT K 

3S3G PRINT K; " Us^fB 

3G4G INPUT R 

Vi(-i--ir3 PRINT R 

2H73 PRINT , . , , 



7) CODE : 

L'acces au menu 2, se fait au 
moyen du code decide lors de 
('initialisation generale (on 
peut a tout moment, modifier 
le code. Programme arrete 
(BREAK) - en mode direct 
LETW2 — valeur du code puis 
GOTO MENU). 

MENU 2 : on y trouve les 3 
choix qu'on peut desirer ca- 
cher aux utilisateurs : 

1) Reinitialisation des noms : 
Vide le tableau des noms me- 
morises. 20 nouveaux joueurs 
peu vent maintenant utiliserle 
programme. 

2) lecture des s6ries de 
mots : Permet de savoir ou on 
en est, et les repetitions 
eventuelles. 



S260 P! 



3) lecture des mots + Repon- 
se pour verifier chaque mot a 
la loupe. 

Les routines du Menu 2 se ter- 
minent automatiquement par 
un renvoi au Menu 1. 




x -. 1=: R«*6* + 

3>» C*4-D* 
4=.- OS" 
t™ OR INKEY*>"4 



3110 IF INKEVI t 
THEN GOTO 3110 

j 1 33 LET I = URL INKEY $ 

3143 CLS 

Ii ISO GOSUB 75 + 20*1 

31BO PRINT RT 21,7 

319S IF INKEYIO"" THEN GOTO 319 

-~.;G(3 IF INKEY* = '"- THEN GOTO 3200 

3210 IF INKEY|="0" THEN GOTO 30Q 

3250 GOTO MENU 

■■SE3 CLS 

3^^) PRINT 

SsSI PRINT , , 

3530 FOR 1=1 TO 20 

3530 PRINT " "RND I < 10 : r; " > »: 

" ' ";m (i) 



S^OG NEXT 



OTS PRR 
403O PRII 
TION) D"" 



^^^^CHRRGEHENT DES H 

^B-CCRUURC (CORREC 

D-LisTe 

iCES" 

"1-CDOE 



PRINT 

PRINT RT 21, 



3-PERFORH 



■1200 IF INKEY* t 
THEN GOTO 42QQ 
•vaiB LET I.URL INKEV* 



OR INKEYf J--^" 



(I»ll fSOeOf (In3t t-30 
« » i a=o i tjawui (led.) +B200 tlliS) *Q'3 

..'.■ ' .: i.",i t.i',nni i i - ■ .■ i 

i^00 INPUT Ul 

'i"510 IF Ul < ? U5 THE N GOTO ME"'. 1 
J.520 PRINT "BgMg" 
530 RRirn , , , , 

PRINT f , , ,"M-REINITIRLI5RTI 



ON DES NOMS 1, 
■UiSO PRINT , , , , 
oERIES DE HOTS" 
45G0 PRINT , , , , 
HOTS * REPONSES 
<1*J70 IF INKEY*("1" OR 
THEN GOTO 4570 

LET IeURL INKEY » 



H=LCCTURE CE3 
fgaLECTURE DES 
OR INKEY* t"S" 



4S9B GOTO 
".i'.u-j . ,■ 1.3 
'5000 REM ' 





PRINT RT S ,L, , 
20 PRINT RT 10, 1, 
30 SLOU 
50 FOR 1=1 TO 20 

63 IF L (J, 11=0 THEN GOTO 5600 
80 IF I.'SOIKT 



as -2. 



THEN LET 
J,I> TO la 



'55GB PPINT RT R,g*I;Y* 

J, i) ,« + i; l t 

5550 NEXT I 

SG00 IF INKEY*-" THEN GOTO BAI99 

GQSOI GOTO MENU 



S01O FOR 1-24 TO 40 STEP A 

3020 GOSUB I 

i3O30 NEXT I 

O040 GOTO MENU 



9500 CLS 

9503 LET O-t 

9503 PRINT • 

9S1B INPUT I 

■jsis ir s<i 

a 

9530 PRINT 



OR S>» THEN GOTO 95 1 



FOR F-l TO 10 
9550 PRINT 5; ■ , •; F 
13500 NEXT r 
9570 IF INKEY*-" 
QBS0 IF rNKEY*-"M" 



NW ',HTC 
•JsJHO PEN I 
990 1 CLS 



aa- 



9903 PRINT "5RUE RUEC FRST/LORO 



0O03*.7» <U»-'N"> *B7» t 
"nTTENTION, 



HEPHRER LE MnDNCTO'-.OT _La.a;"PRC 

- UNE TOUCHE POUt* HBSB 
9920 IF INKEY • = •' " THIN wiTl) 



930 SRUE "KIKEKOI. lM>riOUi 
9940 CLS 

n«JS0 GOTO o 

EH UNE TDUCMC)'^ 
'-l'ir,-. IT INKEY»< i 



DM PRESS 

EN GOTO OOft 

Ii l.i) 1 n QQ7B 



UU70 IF INRKV*."" T 

SBii rand usr saaa 

•IOH3 RCH S93KIKEKOI. lH> BOUf* 

9990 CLS 

9995 GOTO 

Q99B REM 10 K.BRBXC « ECRRN 

IB R.VnRinHLESHriBLCflUN 
TOTAL. 36 K. ENUIRON. 
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LE HIT DU BLASE 



Madame. Mademoiselle. 

Monsieur, Bonjour ! 
Au (ail . j'ai recu un petit true 
extra, un adaptateur permet- 
tant d'utiliser les joysticks de 
Chez ATARI ou compatibles, 
style SPECTRA VIDEO ou au- 
tres WICO sur un APPLE. Ceta 
se branche a la place du joy 
stick habituel, et la, chose ex 
traordinaire, le nouveau joy 
stick est entierement compa 
tible avec tous ies jeux utili 
sant le joystick APPLE ; une 
petite restriction cependanl. 
nobody is perfect ! les jeux 
utilisant les 2 boutons de feu 
sur le joystick APPLE perdent 
le bouton 2 avec les manettes 
compatibles ATARI. Celui-ci 
n'ayant qu'une touche de feu. 

Je me souviens que pour utili - 
ser les manettes ATARI sur 
mon APPLE, il fallait acheter 
le JOYPORT de chez SIRIUS, 
et encore, ce n'etait pas tou- 
jours compatible. I 'option 
JOYPORT devant figurerdans 
les options du jeu. Alors. j'ai 
redecouvert toute ma pano- 



plie de jeux avec un joystick 
BOSS de chez WICO. avec 
done I'option habituelle 
JOYSTICK : quelle precision ! 
et enfin. de nouvelles possibi- 
lity pour alter encore plus 
loin dans les jeux d'arcades. 
J'ai fait un score de champion 
tres facilement sur ZAXXON. 
Un accessoire obligatoire a 
mon avis dans la panoplie du 
joueur d'arcade "up to date". 
Cette semaine, je vous rap- 
pelle les meilleures ventes de 
programmes ludiques sur AP- 
PLE : 

1 - CHOPL1FER 

2 • LODE RUNNER 

3 -A.E. 

4 - CANNON8ALL BLITZ 

5 - ZAXXON 

6 - APPLE PANIC 

7 -SNEAKERS 

8 - MINER 2049er 

9 - SERPENTINE 

10 - WAVY NAVY 

11 -SEAFOX 

12 - CASTLE WOLFENSTEIN 

13 -SPACE EGGS 

14 - FROGGER 

15 - GAMMA GOBLINS 




13 Micro-ordinateurs a prix 
charter Duriez 




DURIEZ EST LE PRE- 
MIER specialiste des 
calculatrices avancees et ordi- 
nateurs poriattfs. 

Fonde en 1783, Duriez ne se 
laisse pas emballcr par le non- 



durable. II propose tous les 
derniers modeles valables, 
avec accessoires, programmes 
de jeux, d'affaires et person- 
nels, livres, modes d'emploi, 
notices descriptives : Sharp, 
Canon, Olivetti, Casio, 
vlett-Packard, Epson.. 



Duriez esi omen 132. HJ Si 
Germain. Paris tV|M I 
9h35 a 19 h sauf Iunj : -. Machi- 
nes a ccrire. papcterie. materiel 
de bureau : 112, Bd St Germain. 
Ouverl lundi au samedi 9 h 30 - 
18 h 30. Fcrme lundi ci ■.amedi de 
13 a 14 h. 



Achetez sur place ou par poste Voy ez le Banc 



****** 



Ceile semaine. une belle bro- 
chette de logiciels, n'est-ce- 
pas ! Voici done les 15 meil- 
leures ventes de ces derniers 
temps sur APPLE. Certains 
autres meriteraient de figurer 
dans ce hit, mais restent en- 
core malheureusement in- 
connus du public. Bonne se- 
maine a tous et a bientOt. 

CLAUDIUS 



INFORMATIQUE ET EDUCATION 





A peine une semaine d'exis- 
fence ef deja beaucoup de 
courtier... Voila une lettre as- 
sez representative de ce que 
nous avons recu. 

N.D.L.R. 



Fidele lecteur de votre jour- 
nal, e'est avec beaucoup de 
plaisir que j'ai constate votre 
interet pour I'enseignement. 
Quels sont mes eleves : 15 
enfants de 7 a 13 ans presen- 
tant un fort retard scolaire, 
une comprehension assez 
lente et une aversion pour le 
travail scolaire. J'ai 4 groupes 
de lecture, de niveaux diffe- 
rents et, 5 groupes de calcul. 
Les plus bas niveaux en sont 
au stade de la maternelle. 

Pourquoi un ordinateur ? : je 
I'utilise avec ies pluspetitsen 
E.A.O. : 

- Pour les jeux sensorials {ty- 
pes simon) auditifs, visuels, 
attention et rythmes. 

- Pourdes apprentissages de 
mecanismes : tables, opera- 
tions, etude de sons, de mots, 
de grammalra, il est surtout 
utilise avec les plus grands. 
C'est vous dire qu'il ne chome 
pa«. 

J'ai actuellement un "ALICE" 
de chez Matra et je peux u Wi- 
ser parfols un T07. 

Lea enfants preferfint ALICE 
pour les exercices de type 
scolaire et le T07 pour les 
jeux (le graph lame et les des- 
sins sont tout de rneme mell- 
l«urs). 



Avec le T07 j'ai utilise les di- 
dacticiels Vifi Nathan mais 
devant I'impossibilite d'agir 
sur le listing et de modifier le 
programme dont 1'interet 
s'epuise rapidement. J'ai de- 
cide de prendre a droite et a 
gauche (surtout dans Hebdo- 
giciel) des programmes que 
j'adapte a mes besoins : Ainsi 
MEM07 est devenu un jeu de 
calcul et aussi de lecture 
(sons arapprocherou a trier). 
Evidemment le passage d'un 
ordinateur a I'autre pose des 
problemes. 

Avec Alice j'ai du reprendre 
certains de vos programmes : 
par exemple "additions et re- 
tenues" prevus pour TRS80 
(N° 19) que j'ai elargis a la 
centaine et a 3 nombres su- 
perposes... on peut faire 
plus ; et que j'ai adaptes pour 
la soustractlon. 

En general je reste maitre 
d'eeuvre de !a lecon, de sa fi- 
nalite, de sa structure, ceci 
constitue I'armature du pro- 
gramme. Puis avec les en- 
fants nous recherchons ce 
que Ton peut ameliorer dans 
le deroulement du jeu : score, 
nombre de coups, mise en 
evidence des erreurs et pos- 
sibilites de les corriger, don- 
ner enfin la bonne reponse... 
les recompenses ou les ap- 
preciations. 

Enfin, nous soignons la pre- 
sentation, nous mettons la 
couleur, un peu de dessins, 
des sons. Tout ceci ne va pas 
sans mal avec Alice qui outre 
ses pauvres 4Ko n'est pas 
tres douee pour I'art. Cepen- 
dant, elle arrive a nous suffir 
pour les exercices d'appren- 
tissages scolaires. 

Je ne saispassi tout ceci peut 
presenter pour vos lecteurs 
un Interet quelconque mais, 
n'etant pas initie, mais tres 
enthousiaste je crols que 
chacun peut faire beaucoup 
grace aux mlcro-ordinateurs. 
Et les enfants en redeman- 
dent. 

D'autros mieux que moi, sans 
doute, vous feront part d'ex- 
periences reussies mais si 
vous le souhaitez Je pourral 
vous donner de facon plus 
complete notre demarche 
pour la "construction" d'une 
lecon donnee. 

Jo n'ai malheureusement pas 
d'imprimante pour vous faire 
parvenir des programmes (au 

cas oil vous le souhaiteriez) 



et pas de credit... C'est sem- 
ble t-il moins utile que les ma- 
nuals scolaires. Et puis votre 
journal n'avait pas ouvert a ce 
jour ses pages a des articles 
ou des programmes consa- 
cres a des exercices pure- 
ment scolaires. Vos jeux sont 
assez attirants mais ne cor- 
respondent pas tout a fait a 
ce que j'attends d'un ordina- 
teur... mais je vous le repete, 
ils sont pour moi d'excellents 
execices de style et une mine 
d'idees. 

Je vous disais plus haut 
qu'Alice tournait en perma- 
nence aussi vous pensez bien 
que je serai interesse par une 
autre console (a condition 
que je puisse aussi me procu- 
rer un modulateur demodula- 
teur N.B. qui me permettrait 
d'utiliser Alice sans sa cou- 
leur) alors que ma TV servirait 
avec un autre. 

J'ai des TV Noir et Blanc mais 

il m'est impossible de realiser 

le branchement, je ne trouve 

aucun marchand possedant 

ce modulateur. 

J. FACE. Instituteur classe de 

perfectionnement 



PETITS POTINS : 

- La 3* Micro-Expo-Info con- 
sacre une demi journee (sa- 
medl 19 Mai) aux enseignants 
et aux eleves. Micro-Expo-In- 
fo, 18 et 19 Mai. SAINT-CHA- 
MAS BOUCHES DU RHONE, 
tel. : (90) 80.93.90. 

- FIJIPE. premier festival in- 
ternational du jeu informati- 
que et du programme educa- 
te se deroulera du 26 Juin au 
1" Julllet a ORLEANS. Tel. ; 
(38) 62.61.77. 

- Le numero 1 de 50 program- 
mes Basic (T07) pour I'ensei- 
gnement et la famllle, revue 
semestrielle editee par deux 
enseignants et dont les bene- 
fices alimentent les coopera- 
tives scolaires. 

- La premiere bibllotheque 
de logiciels educatifs au CES- 
TA, 1 rue Descartes 75005 PA- 
RIS. Tel. : 634.34.68. ■ 
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LEM05 
EXISTE, NOUS 
L'AVONS 
RENCONTRE ! 



M05 et T07 

11 est impossible de presenter le 
M05 sans le comparer a son 
grand frere le T07. 
Sur le plan systeme, on ne peut 
que regretter I'absence du 
crayon optique. (en option pour 
le MOS) et se rejouir de ''aug- 
mentation de la taille memoire 
allouee a I'utilisateur Outre son 
aspect exlerieur et son clavier 
plus professionnel, le M05 pos- 
sfide sur le T07. le net avantage 
d'un Basic Resident (plus de car- 
touche Basic I). 

Ne nous rejouissons quand me- 
me pas Irop vite i le Basic du 
M05 est un sous ensemble du 
Basic existant sur T07. De nom- 
breuses instructions sont ab- 
sentes : MAK. UNMASK. AUTO, 
DEFFN, OCTO. MEXO. ONPEN. 
Certaines fonctions n'existent 
plus : PRINT USING no trait e pas 
chalnes de caracleres. la 
double precision n'est pas utili- 
sable, I'extension teiematique a 
disparu. Ouelques avantages, 
neanmoins ; 16 couleurs. possi- 
tes d'lncrustation (separa- 
i de recran entre le M05 et 
age televisde. 



COMPATIBLE 
OUNON 

Lo MOS n'est pas compatible 
avec lo T07. Lo formot utilise 
pour la sauvegarde des pro- 
grammes sur cassette n'est pas 
le rneme, et le Basic est. sommo 
toute, different. 

Seule, l'nd|onctlon du MOS d'un 
loctour do disquette qui enrichlt 
par la memo occasion lo Basic 
(AUTO, DEFFN, DEFUSR . ). as- 
surora la compatibility physique 
des programmes 
Encore uno affaire a suivre ... 



Cabl«mogrc*io 

Amplilic. RS232 * Cordon 
C«'don™p<lm. pafoll*l» 
Cort»ficSi»r 
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d'Essai Duriez 



~ A PACKS SLR SHARP. 
Z4 COMMODORE. SIN- 
CLAIR, ORIC. CASIO, 
KPSON. THOMSON, etc... 

Ce Banc-d'Essais-Cata- 
loguc est un condense de 
caractcristiques techniques 
precises, sans delayagc publi- 
citaire. 

II est complete' par des 
appreciations et des tests 
Duriez sans complaisance. Et 
des conclusions pour gutder 
voire achat. 



Je commande a prix charter Duriez : 

Si 



1 32, Bd Si-Germain, 75006 P; 

Tel. 329-05-60 
.. I catalogue Duriez complcl 
graiuit (calc. Scientifiq., ei impri- 
mantes. Machines a dicier. 
Repondeurs icleph., Mach. d 
ecrirc, Duplicaicur.s, Maiericl 
bureau, Cla«eurs, cic...). 
[ ' Bulletin de micro-ordinaieurs 
avances. 

D ... calculalricefs) marques et 
modeles suivanis : 
C 




□ Je paicrai a reception (COfiUt J 
RcmbourscmciH), moycniuni tin 
supplemcni de 30 F. 
Mes Nom. Prenom?. Adresse 
(N°. Rue. Code, Ville) r 



Port et cmballagc 40 F. 

Ci-joint cheque de F Da,e « Signature : 

(outes taxes incluscs (ou) 



Jk) 



UNITE CENTRALE 
Caracterlstl q u.es 

- La taille memoire est de 
64 K, dont 48 K de 
memoire vive. 
L'utilisateur dispose de 
32 K (il n'y a pas 
d'extension). 

L'image ecran occupe 16 K, 
Le moniteur et le Basic 
integre occupent 16 K. 

- Le microprocesseur est 
le Motorola 6809E. 

- Le clavier est constitue 
de 57 touches a 
deplacement de type 
"silicone". Les minuscules 
accentuees sont 
utilisables. 

- Un lecteur de cartouche 
MEMO 5 permet d'utiliser 
les logiciels avec support 
en "ROM". 

- Le crayon optique est 
une option. 

- Les caracteres TELETEL 
ne sont pas utilisables. 

- Le crayon optique et le 
LEP se branchent 
directement sur le M05. 

- Un connecteur permet de 
brancher une extension ou 
un peripherique. 

- Une prise peritelevision 
permet de raccorder le 
M05 a un televiseur. 

- L'image ecran composee 
de 64.000 points (320 x 
200) permet d'afficher sans 
restriction des caracteres 
ASCII, des caracteres 
deftnis par l'utilisateur 
lui-meme. des points 
graphlques. 

- Les couleurs utilisables 
sont au nombre de 6. 

- L'afflchage de texte est 
realisee au format 

25 lignes de 40 caracteres 

BASI C INTE QRE 

II s'aglt d'un Basic 
MICROSOFT 

Le Basic M05 est un sous- 
ensemble du Basic T07 
(certaines posslbllltes 
n'oxlatont plus). 
Le clavlor du M05 possode 
une touche "BASIC qui 
permet d'obtenir dos 
ordros Basic sur les 
touches. 



P ER1PHE R1QUES 

Crayon_optique 

- C'est une option pour le 
M05. 

- II peut pointer un point 
de 1'ecran parmi 64.000. 
Lecteur-enregistreur de 
programme 

- Fonctionne a 1.200 bauds 
sans regiage. 

- Comporte deux pistes : 
une pour les programmes 
et donnees. I'autre pour 
le son. 

Controleur de 
communication 

- Seule I'mterface paralldle 
est utilisable pour brancher 
une imprimanle. 

- L'interface serie RS232C 
n'est pas utilisable. 
Contr&leur/lecteur 

de disquette 
Le conlrfileur permet de 
brancher de l a 4 lecteurs. 
Le lecteur permet de gerer 
80 K octets 

(Les programmes Basic 
seront compatibles 
physiquement entre M05 
et T07 sur disquette). 
Extension Musique et Jeux 
Comporte les deux 
fonctions : 

- gestion des manettes de 
jeux. 

- synthetiseur de son. 
Imprimantos 

- Modele a impact relle par 
I'intermediaire du controler 
de communication et d'un 
cable. 

- Module thormlquo relie 
diroctement au M05 
(dlsponiblo on Juin). 

- Modele thcrmique rello 
par rinterniodlaire du 
controleur do 
communication ot d'un 
cAble (dlfforent du cable 
T07-70). 

L'extpnslo.n t6l6m_atiqu.o 

N'ost pas utilisable sur 

lo MOS. 

Codoui Modulatour SECAM 

Soul I'nppiiroil CGV ost 

utlllsnblo. 

Incrustation 

Permet do portngor I'ocrun 

d'afflchago ontro lo M05 et 

l'un.it|" tr*'|i'tvrit''it 



DEUX SUPER-CONCOURS PERMANENTS 

10000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE EN CALIFORNIE 

au meilleur logiciel du TRIMESTRE. 



Un concours de plus ! 
Rien de bien original dans cette 
formule, pourtant nous es- 
sayons de Jaire quelque chose 
de different : nous organisons 
un concours permanent tous 
tes mois et tous les trimestres I 
Et avec des prix digues des pro- 
grammes que vous allez nous 
envoyer! 

De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes sur 
la grille recapitulative men- 
suelle. 

Pas de Jury, pas de decision ar- 
bitrage, HE80OGICIEL n'inter- 
venant que dans le choix des 
programmes qui devront etre 
ORIGINAUX et FRANCAIS. Si 
votre programme n'est pas tout 
a fait au point, un de nos spe- 
cialistes vous dira comment 
I'ameliorer pour pouvoir nous le 
proposer a nouveau. 



Pour participer, il vous suffit de 
nous envoyer vos programmes 
accompagnes du bon de parti- 
cipation ainsi que tou tes les ex- 
plications necessaires a ('utili- 
sation de ce programme. 
Vous pouvez obtenir gratuite- 
ment des bons de participation 
en ecrivant au Journal. 
Bonne chance! 

Reglement : 

ART 1 ; HEBDOGICIEL organise 
de facon mensuelle et trimes- 
Irielle un concours dole de prix 
recompensanl le meilfeur logi- 
ciel du mois et du tnmestre 
ART.2 Ceconcoursestouverta 
tout auteur de logiciel quelque 
soil le materiel sur lequel il est 
realise. L'envoi d'un logiciel en 
K 7 ou disquetle accompagne 
d'un bon de participation de- 
coupe dans HEBDOGICIEL ou 
envoye gratuitement sur de- 



mande par la redaction de notre 
journal constitue I'acte de can- 
didature 

ART. 3 La redaction d'HEBDO- 
GICIEL se reserve le droil de 
selectionner sur la base de la 
qualite et de I'onginalile les logi- 
ciels qui sont publies dans le 
journal 

ART. 4 Ce sonlles lecteurs qui. 
par leur vole, determinent les 
meilleurs logiciels mensuel et 



lestriel 



ART. 5 Le prix alloue pour le 
concours mensuel sera remis au 
plus tard_un mois apres la clo- 
ture du concours mensuel. 
ART. 6 Le prix alloue pour le 
concours Inmestriel sera remis 
auplustard un mois apres la clo- 
ture du concours trimestriel. 
ART 7 Le present reglemen! a 
ete depose chez Maitre Jauna- 
tre, 1 . rue des Halles 75001 Paris 
ART 8 HEBDOGICIEL se reser- 



ve le droit d'interrompre a lout 
moment le present concours en 
en avisant les lecteurs un mois 
avant 

ART 9 ■ La participation au con- 
cours entraine ('acceptation par 
les concurrents du present re- 
glement 

HEBDOGICIEL: 27. rue du Gal 

FOY -75008 PARIS 

Sera declare gagnant le pro- 
gramme qui aura obtenu le plus 
fort pourcentage de vote par 
rapport a la totalite des pro- 
grammes recus pour un meme 
ordinateur. 

Ainsi, pas de favoritisme pour 
les ordinateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



Norn 

Pre nom . 

Age : Profession : 

Adresse ; 

N ■ telephone 

Norn du programme : 

Nom du materiel utilise . 

declare etre I'auteur de ce programme qui n'est ni une imitation ni une 
copie dun programme existant Ce programme reste ma propnete el 
jautonse HEBDOGICIEL a le publier La remuneration pour les pages 
publiees sera de 1000 francs par page (un programme n'occupant pas 
une page entiere sera remunere au prorata de la Surface occupee) 

Signature obhgatoire . 

(signature des parents pour les mmeurs) 

Le programme doit etre expedie sur support magnettque (casselte ou 
disquetle) accompagne d'un desc nptif det aille du materiel utilise, 
d'une notice d'util isalion duprogramrrie" Les supportsdes program- 
mes publies sont conserves , n'oubhez done pas d'en faire une copie 



RECOMMANDATIONS AUX LEC- 
TEURS QUI SOUHAITENT FAIRE 
PUBLIER UN PROGRAMME : 

• Envoyez vos supports, mode 
d'emploi, listings et bon de parti- 
cipation dans une meme enve- 
loppe. 

Vous pouvez nous envoyer plu- 
sieurs programmes sur un meme 
support en I'indiquant sur votre 
Bon de Participation. 

• N'oubliez pas et ceci est tres 
important, d'inscrire sur vos sup- 
ports votre nom, le nom du pro- 
gramme et le materiel utilise. 
Notez dans les premieres lignes 
de votre programme, sous forme 
de REM, votre nom. le nom du pro- 
gramme el le materiel auquelil est 



destine. Nous pourrons ainsi re- 
perer facilement les listings, une 
fois sortis de I'imprimante. 

• Dupliquez plusieurs fois sur la 
cassette et a des niveaux d'enre- 
gislremenl differents votre pro- 
gramme. Nous aurons plus de 
chance d'arriver a le charger si les 
magnetophones ne sonl pas tout 
a fait compatibles. 

• En ce qui concerne les bons de 
participation, metlez votre adres- 
se com p lete el voire numero de 
telephone (si vous en avez un). 

• Pour tout envoi tel que "'petites 
annonces", "abonnement" et 
"programmes" specifiez sur vos 
enveloppes I'objel de votre cour- 



Ne nous envoyez plus denvelop- 
pestimbrees, metlez stmplement 
les limbres joints a votre envoi 

• Expliquez les particularites de 
votre ordinateur el le moyen 
d'adapter votre programme a 
d'aulres ordinateurs. 

• Vu le nombre important de pro- 
grammes similaires que nous re- 
cevons. evitez de nous envoyez 
les jeux suivants : BIORYTHMES, 
MASTERMIND. PENDU, TOUR DE 
HANOI. CALENDRIER, BATAtLLE 
NAVALE, POKER. JACKPOT. 
BOWLING. BLACK JACK, LABY- 
RINTHS. MEMORY SIMON, 421, 
OTHELLO. SOLITAIRE, LOTO. 



LA REGLE A CALCUL RE- 
COMPENSE LES MEILLEURS 
LOGICIELS EN OFFRANT A 
CHACUN DES PREMIERS 
DANS LEUR CATEGORIE UN 
OUVRAGE A CHOISIR DANS 
SON RAYON LIBRAIRIE (EDI- 
TEURS : BORDAS, OUNOD, 
EYROLLES, MASSON, NA- 
THAN, PSI, SHIFT, SYBEX). 



DDI OFFRE CINQ CASSETTES 
DATA OR VIERGES AU MEIL- 
LEUR PROGRAMME DE CHA- 
OUE CATEGORIE. 



Le Club PPC-T offre au meilleur 
logiciel en langage FORTH sur 
HEIB LETT- PACKARD une adhe- 
sion gratuite a son club. 



Les editions du CAGIRE offrent 
au meilleur logiciel du mois sur 
HP 41, leurlivre "autour de la bou- 
cle" de Janick TAILLANDIER. 



SOUIRELLE RECOMPENSE LE 
MEILLEUR LOGICIEL DU MOIS 
PAR 2 CASSETTES A CHOISIR 
DANS SA LOGITHEQUE. 



DURIEZ CALCUL OFFRE AU 
MEILLEUR LOGICIEL DU TRI- 
MESTRE UNE MACHINE A 
ECRIRE BROTHER EP.22, 
2 KO DE MEMOIRE. INTERFA- 
CED RS . 232 . C. 



LOGI'STICK OFFRE UNE GAM- 
ME COMPLETE DE SES CAS- 
SETTES DE JEUX POUR LE 
MEILLEUR LOGICIEL DU MOIS 
FX 702 P ET POUR LE MEILLEUR 
LOGICIEL PC 1500. 
IL OFFRE EGALEMENT UN 
"CALC ET UN "GRAPHE" POUR 
LE MEILLEUR PROGRAMME 
CANON. 
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REGRAFON 



BULLETIN DE VOTE 



A renvoyer avant le 3 Mai minuit a HEBDOGICIEL. 
c'oncours mensuel. 27. rue du General Foy. 75008 
PARIS. 

JE VOTE POUR LE PROGRAMME SUIVANT : 
NOM DE L'ORDINATEUR : 

NOM DU PROGRAMME : 

JE CLASSE SECOND LE PROGRAMME SUIVANT : 
NOM DE LORDINATEUR : 

NOM DU PROGRAMME : 

MES COORDONNEES POUR LE TIRAGE AU SORT 
DES CALCULATRICES CASIO : 



NOM ET PRENOM : 



AUX URNES ! 



DATE LIMITE D'EN- 
VOI DES BULLETINS 
DE VOTE : JEUDI 3 
MAI , MINUIT. 



Abandonnez quelques instants vos claviers et prenez 
votre plus belle plume pour remplir le bulletin de vote 
ci-contre. La redaction d'Hebdogiciel compte sur vous I 
La marche a suivre est simple : 

- Reperez dans la grille ci-contre le programme pour 
lequel vous voulez voter ainsi que celui pour lequel vous 
votez en second (le second nous permettra de rendre 
plus equitable la formule de choix du gagnant). 

- Reportezle nom deces deux programmes surle bulletin 
de vote. 

- Inscrivez vos nom et adresse sur le bulletin de vote. 

- Expediez-le a HEBDOGICIEL, CONCOURS MENSUEL. 
27. rue du General Foy, 75008 PARIS, avant le jeudi 3 Mai 
a minuit. 

II est fort probable que ceux qui participent au concours 
feront voter leur papa, leur maman. leur cousineet la tota- 
lite de leurs amis et relations pour leur programme. Nor- 
mal ! Mais comme chacun d'oux (era la mSmo chose, cela 
n'est pas bien grave ! Toutefois, toujours dans un souci 
d'equite, nous n'accepterons quo les ORIGINAUX du 
BULLETIN de VOTE ; pas de photocopies, cola serait trop 
facile ! 



i 



GLOUTORIC 



Un super-glouton. 15 niveaux dejeu, des monstres rapi- 
des, en langage machine (par I'intermediaire de POKE) : 
voila de quoi amuser les fanatiques de jeu et passionner 
les mordus de langage machine. Le moded'emploi, si tou- 
tefois il est necessaire, est dans le programme. 



Olivier ZIMMER 



OWC1 




_13 cleap:clS:pokE4bo36,o:poke426a.k 
_16 p0ke4bba7, 327 poke 4bba6, 32:p0ke4bi 

5.32 

_17 PAPER o: INK 3 

_20 PRINT : pp int: print: print: print :pr: 
T ; PRINT : PB IN t: PRINT 

_22 PRINT CHRS«4llT«t -N G"l 

• i ■Dt.-|T*|-EO-|T*|-FU-l T»| 

_23 PRINT-AT-lT«t-BO-lT«J "CN-|CHR4t4i 

_24 pr t nt: pr |nt: print: pr int: pr int - 

_26 pqke48607,4:wait200:getv» 
_27 cl5:papeR4:ink6 



.1313 REM 

.1340 PAPER O: INK3 

,1330 INPUT -Niveau (i a 2331 

II " 1A: IFA<10RA>233THEN1330 

.1333 CLS 

i *ia»:cls 

,1380 PLOT10.O, -NIVEAU :-:ploi 



LLEZ PATIENTER 0UEL6UE5 



PRINT:PRINT- BON APPETIT 



_60 papero: INK2:PRir 



PIN 



AU 
NIVEAU 13. * 

_?3 print:print-a vous de faire mieux. 
_80 printrprint-voulez sauver lb progr 
_83 ifx«--n" then 90 



_1423 FOPN-11 



.1300 PLOT*. 6," 
.1330 PL0T4.7, - 



_I600 PLOT4, 12, • 
_1830 PL0T4.13,* 
_1900 PLOT4.14,* 
_1930 PL0T4, 13, ' 
_2000 PL0T4.I6,* 
_2CSC PL0T4, 17, " 



I.HB4 

1200 DATft«DO, 

.3230 0ATA4A3 
I , 469 , O 

_3300 DATA483, 
A3.0.43B 
_3330 DATA4E9 
3,l,»C0,4BC 
_340O DATA4D0 

_3430 DATA4A3 
469,0,483, 1 

,400,428 
_3330 DATA4A9 
• A3,0 
_3600 0ATA438 



,3223 

3730 DATA4A9 
4A2, 



' ppintiprint-sauvegaroe en cours., 

:save - glouton*,s,auto:goto90 

i print:print-nettez votre magnetoi 

; en position enregistrement 



IT- ATTENOEZ POUR LE 

' DES CODES' 

.130 UAIT250:CLS: INKS 



_210O PL0T4, 16," '. . . ! ! i ' ' 

_2i3o plot4, i9, ■•*••■:. >.'. • •., • • ■ 

_Z200 PLOT4.20, '! !!'•.... 

.2230 PL0T4 , 21 , * ! ! '•■••■'•• ■ ! ! , 

_2231 G0SU83O00O:CAl_L44Q0 
_2232 P0KE4BBA9, 1 

_Z234 PLOT4.24, -a«8«999 glouton 

HUH ' 

_2236 plot*, 2, -9999999 »cor*:oooooo ea 

HUT 

_2240 POKE4BB04.4:POKE4BBFC,4:PaKE4BCO 



_3803 DATA4C 
C, 0,494, -I 
_38t3 DATA4A3 

2,4A9,3 

_3820 DATA4I 



•8D,4D,4BC,4A3,«3 

.3, «SA, »SD, «B, 48C, i 



_3827 0ATA483 

,0,492 

_3830 
»C3,479,4I 
2, 4A9, 483 



_204 PPINT;PRlNr- SERA DONNE" 

.207 UAIT200-.Ct-S 

_210 PGKEB7E, 12 

_220 Y-0 

_?30 PGKE47D, 121 

_230 POKE48033,0:POKE424A, 10 

_270 REN 

„300 PEM---GENEPATEUP E£ CAPBC TERES- - - 



_2270 P0KE48F44,4:POKE4BF4C,4:P0KE4BF7 

4 , 4: P0KE4BF7E , 4 : P0KE4BF94 , 4 

_2330 PL0T4, I, ■999«8899aa9998aa89899a9 

■MM' 

_24oo plot4,3, •e9Baa8ea98888ee88e8eeee 
88889- 

_2430 PL0T4, 23, -8888888988888998888898 

888988- 

_2S30 PL0T4, 25, - 89888888989rir»(»8e8389a9 

_2333 IFG-1 THEN RETURN 






_2620 DATA4A! 



_330 FORN-OT07: READS 1 :P0KEB'N,B1 :NEX" 

_3i0 peadc i :pokec*n, ci : next : forn-oto: 

reaodi:pqked*n,oi:next:fopn-OT 

07:PEADEi 

_370 pokee*n,ei:next:fobn-oto7:readf. 

POKEF-N.Fl :NEXT 

_430 fopn-oto7:peadsi :pdkes>n,si:mex' 
fohm-oto7:readti 



_460 P0KEX'N,X1;NEX 



_470 PGKEZ-N.ZliHEXT 

_490 DATAO, 10, IS, 18, 18, 18,30,0,0,0,0,0 

,12,0,0,0,0,12,30,43,63,30,12, 

o 

_3O0 OAT A30, 33, 63, 42, 43, 30. 12,0, 30,39, 

63, 31, 63, 30, 12, O 

_340 DATAO, 17,49,39,47,63, 30, 12, 12, 30, 

63,47,39,49,17,0 

_330 DATAO, 10,30,63,47,63,30, 12,30,39, 

13,7,3,7,14,60,30,33,60,36,48, 

36,28.13 

_360 DATA33, 30,43,43, 43,43,63,42, 33,30 

,63,33,43,49,43,21, 12,30,63,47 

,43,30, 10,0 



B.490.4E 
■A9,4BC,433,44E 
_2445 DATA4IB,«' 



;,HA3,H7D,*D0,l,-6 



-270 



lTA»A3,0,»C9,"a3,«D0.l 



> DATA»DO,8,"A9,»DB,483,0,"A9,ltBE, _17^C 



0,4 18,"aO,"29,>l93,0,IIA3, 

I .-.-.-.'. -f. , .tl ,. j.nDO.-D, " 

■28, 483,0, "A3, 1 ,HE9,0,»8 

• 1B,1IA9,II23,«=3,2,4A9,«3 

0,«18,»6", 1,»83,0,«A3,I, 

(tAl.BCl.O.BFO.BC-CO.-AC 

•26, "83, 2, »A?,«3E, M93.3| 

«£?, t, 483,0, HAS, I,*E9,0, 

-.M . "C! .0,-D'.., HD, ■ A3 ,0,4 

0,BA3, 1,469, 0,483, 1,4A9, 

•70,«DO,«32,4C6,"71,«D0, 
N7I,«A9,1,*83,«7 

8,«A2,9,420,433,«F3 

7 , HA2 , »3E , 420, W33 , 4F5 , 4A 

0,433,»F3,«A2,«1 



_3400 DATAHBE 
0,483,474,41a 

_3630 DATA4A3 



.3700 DATA4C9 

,H20,*83 

.3730 DATA4A3 



_3830 DATA4J 



.9,42E,4Cl,0,ltD0,3,t 






_6200 DATAKA2 
46C.4A3, 9,418 
, 483, "A, 418,490 



4400 DATA4C9 



■ C5,478,4D0,41F,4, 



iihehpoked,v:e-d-i 
itmEnpoi-EC,0:C-C*1 



472, 430, 9, 4A3, 7, 469,0 
4E9,0,483,7,4A2,0,4A1 
• 83, "38. 418, 4' 



4D0.3 



,0:P0KE"37,o:POK£ 
_7S80 DOHEP.4BDF3 



_7930 READH1 1FI 

_8000 [ 



!,444,II20,*3 4CA,> 



4FF,488,»B0,« 
l,4A9,a,4A2,0,4Z0,«3, 
IC9,439,400,«3C,»A9,43 
',4DO,42C,»A9,430,483. 
:,4A°,»I0,»85,4B.»A3," 
1,483, ■39, "A3, "3A, me, 
', 1 ,4B3, 439, 460,419. "6 



.8130 RE 
_82oo no 



3,«A,»D0,"I9,»A3,«: 



_4400 POKE4,0:DOh£46D,4BC82 
_4*30 D0KE0,4BEBA:P0KE91,0:P0KE: 
:P0KE112, l : POKE 1 I 3, 30 : POKE! 14, 

_4350 BEADA: lFAt>-lIHENPOKE,T,A:. 
OT04330 



4D0,«B,483,477 



4A3,46B,48I 

0,473,481 



ihenpOkeu,h:w-uh 
ibf,4ad,47d,4bf,4c' 

1,483,0. 4A9, 
'33,4F3,4A2, 



'F4.4A6.46F, I 






1F0O-1THENP0KEG.1 



i , 428, •28,428,12 



F,4CF,»0 

1,1,1,408, 
408, 4D8, 



4DB.4D8, 1, 



HtNPOKET, y: t»tm:g 
*76,»81,473,4A4,47 

0,»70,«83, 

9, 'AS. a7d, •■>--, 

•83,476,418,49 

4D0, •8,483, 477 
481,a73,BlS,B? 

•81,6,4A4,437 



'150 READB! IBBO-lTHEHPOKfii 
09130 

DATA«D9,4D9,4FF,4FF,ai 



IB,«Q8,»D8,»FF,1 



■28, 1, 1,»29,«28,»FF 1 I 



, l,«28,«2a,«28,«28.428,i 



•28,«2S, 

,*(ie,«DCi, 1.1,1,1, 



> PEADBilFB' »-!THENPOKI 



i,"Fa,»C5,«7C,«D0, 



_9743 F0RN-OTO39:P0KE«SB8O>N, : 

_9730 A-48000 

,.9800 READD: IFD' !-lTHENPOKEA, [ 



_10040 P0KE2,37:POKEJ,93 

_I0030 P0KE4.0: 0OKE»6D,«BC82 

_ 10060 D0KE0,4BEBA:POkE91 , o: POKE 1 1 1 , 23 

O:pokei12,1:P0K£H3.30:P0kEI14 

_iiooo doke"73,"Bfo3:pok£47s,o:poke»76 

, J6rP0KE436,0:P0KE477,O 

.11100 D0KE»76,4BC83:P0KE47a.46;P0KE47 

B.O:POKE437,0:POKE43B,46:DOKE6 

_I1200 D0KE9,«BDF3:P0KEH6C,0:F0MCh6B,4 

_11230 UA1T300 
_11300 GOT09900 

_20000 pl An, 0,0,0 

_20020 SOUND 1 ,N,4 



_200d3 u-PEE*(3i:K-PEEKiei :S-PEEKi4Bl: 

F-PEEKI4391 : D-PEEK145AI 

.20030 B«-CHB«tDI -ChRUFI -CHR4IS' -CHR1 



_20033 CCS:PAPER 0:1NK 2 

_20060 PRINT"VOtr» tcoi-t , 
•!B»I "O- 

_20063 P0KE4BCC1.0 



E439.'!0:POKE43A,4I 
_20093 P0KE47E , 12 
_20IOO G0I01004O 



"9O02E601CAD0t3< 



.33000 POKEZ.C 
.38000 NEH1 



COMBATS DE CHARS P c 1211 



AFFICHAGE 



A VOUS DE JOUER 
VOUS ETES EN 3.4 
SCORE 

RESERVE 9 



TOUCHE 
ATTAQUE - 1 
CEMENT -2 
DX - 
DY- 



Vousvenezd'etrenomme chef d'equipage d'un char d'as- 

saut el on vous a erwoye sur le front combattre les enne- 

mis hereditaires de votre pays. 

Le haut commandement vous a confie la difficile mission semence 

de "nettoyer" un secteur : vous devez mettre hors de 

combat 6 chars ennemis en les prenant pour cible. Mais force (9 s 3) 

attention..., ils peuvent egalement tirer sur vous et dete- 

norer gravement votre char. S'ils parviennent a vous at- 

temdre de 3 a 9 fois, ils vous reduisent meme a I'lmpuls- 

sance. Vous choisissez vous-meme le nombre fatal de 

coup (force). 

Jocelyn DON2E 

Mode d'emploi : 

Le champ de batailleest schematise sous forme decarre de 10X 10 les 
colonnes et les rangees etant numerotees de a 9. Achaque phasedu 
jeu vous avez 2 possibilites : attaquer ou vous deplacer. 

1) Lattaque : vous indiquez les coordonnees(x.y)de la case oil VOUS tf- 
rez et I ordinateur indiquera s'il y avait un char ennemi. 

2) Le emplacement : vous vous deplacez a la maniere d'un roi sur un 
echiqurer. 

Vous indiquez le nombre depas(-1.0.1)que vous voulez (aire dans la di- 
rection x puis y. Les chars ennemis, eux. ne peuvent pas bouger ■ I'ordi- 
nateur les place au debut de la partie aleatoirement et ils restent immo- 
biles. Cependant. ils sont attentifs a votre position et si I'un d'entre eux 
se trouve sur la meme rangee ou la meme colonne que vous. i! tirera 
dans votre direction des que ce sera a I'ordinateur de jouer Heureuse- 
ment, vos ennemis sont de pietres artilleurs. et il y a une chance sur 
deux pour qu'ils vous ratent... 

Pour les localiser votre radar vous indiquera de quelle direction prove- 
nait le tir, il ne vous restera (!?) plus qu'a tirer danscettedirection en es- 
perantdetruirel'ennemi car si vous vous trompezvousaurezdroita une 
riposte immediate. 
Quelques remarques : 

- II arrive partoisque plusieurs chars ennemis occupent la meme case 
vous faites alors d'une pierre deux coups ! 

- Le programme surveille si vos deplacements et vos tirs sont bien con- 
formes aux regies du jeu. 



TAPER 

RUN ENTER 

ENTER 



DEPLA- 

2 ENTER 
1 ENTER 
-1 ENTER 
TIR VENANT DU SUD-. 
NOUS SOMMES TOUCHES. 
A VOUS DE JOUER 
VOUS ETES EN 4.3 
SCORE 
RESERVE 6 
ATTAQUE- 1 

DEPLACEMENT-2 1 ENTER 
CHAR ENNEMI DETRUIT. 
A VOUS DE JOUER VOUS 
ETES EN 4.3 
SCORE 1 
RESERVE 8 
ATTAQUE- 1 

DEPLACEMENT-2 2 ENTER 
DX= ENTER 

DY- 1 ENTER 

RIEN SUR LE RADAR 



COMMENTAIRES 

(exemple) 

NOMBRE ALEATOIRE 
VOIR TEXTE 
ATTENDRE 1 mn 

POSITION x = 3 y - 4 

NOMBRE DE CHARS 

ABATTUS (ici 0) 

NOMBRE DE FOiS OU VOUS 

POUVEZ ETRE 

SANS DOMMAGE (force) 



DONC POSITION = 4.3 




>^5 



QUELLE CHANCE 



o 



DONC POSITION = 4.4 
IL NT A PLUS DE CHAR EN- 
NEMI DANS LA RANGEE OU 
LA COLONNE QUE VOUS OC- 
CUPE2. 
Maigre la longueur des explications, le jeu est, vous le verrez 
tres simple, je vous conseille de dessiner une grille 10 x 1A oil 
vous pourrez inscrire vos deplacements, les cases vides, etc... 
Com me dans de nombreux jeux de deduction vous vous aper- 
cevrez rapidement que vous allez devoir proceder par elimina- 
tion. Bon jeu ! 



0123456789 SUD 

Votre char est 3.4. Les fleches designent Ies8 cases ou vous pouvezal- 
ler et les cases pointeessont cellesou vous pouvez tireret d'ou on peut 
vous tirer dessus... 



I0:"A"BEEP 1! 
PAUSE ' ** C 
OMBAT DE CHA 
RS «-:PftuSE 
■ <C> J.DON 
ZE 1994-: 
BEEP 1 

20: INPUT - sEJtE 
NCE- -iZ." F 
OPCF a A 3> 
* -;*TT=0:U= 


I0:F0R E=ITO 16 
: GOSUB "ALEA 
":fi(B)=U! 
NEXT B 

40! IF A=TB££P 2 
: PAUSE "BOW 
M...V0US ETE 



S MORT !■* 

PRINT "SCORE 
FIWA4.S-.U: 

EHD 
50: BEEP l: PAUSE 

"ft VOUS DE J 

OUEP. . . " 
r.n:FCUSE '"VOUS 

etes eh -so; 
p 

^:PFiU5E "SCORE 
!".U!P«JSE " 
RESERVE: ".A- 
T 

70: INPUT "ATTAQ 
UE-1 DEPLACE 
MENT-2".0:iF 
O2G0SUB €00 
:GGT0 70 



:IF 0=1G0T0 1 



SO: INPUT ' 



DX» 



S:iF ABS R+ 
ABS S>2G0SUB 
600: GOTO 80 
90: IF <0*R<0)+< 
P*S<Q>*CO+R> 
9>*<P*S>9> 
GOSUB 600: 
GOTO 80 

l'Xi:i>(>P:P=P+S: 
GOTO 175 

110= INPUT " X= " 
iRi" Y= "!S: 
IF .<R>9>*(S> 
9>*<R<0>*(S< 
0>-K<ROCX 



600: 00 TO MO 

120: FOR E=5To is 
STEP 2 

J30HT <R=A<B>J* 
<S=A<B+I>> 
LET ACB>=11: 
A<B+1)-1HU- 
U*i:x»X»l 

1401 NEXT B 

i5Q:if >i=iBEEP i 
: PAUSE XHhP 
ENHEMI D6TP 
UIT !-:X=0t 
GOTO 170 

155: if xmbeep 1 
: pause x;-ch 
ars ehhehis 
abattus'-:x= 

0:G0T0 170 
l-iOif'-EEP 11 PAUSE 

"CHAR EHHEMI 
RATE. . . * 
170: IF U=6BEEP 2 

JPRIHT *V0US 
AVE2 GAGME 

I'JGOTO 700 
175:B=1 
1B0:B=B*2 
190: IF (ACB>=0)* 

<A<B+l>>P> 

GOTO 300 
I?5:IF E=I3G0T0 

210 



220: IF (A<BJ=0>* 

<A<B+1XP> 

GOTO 310 
225: IF B=13G0T0 

240 
? SO: GOTO 213 
240: B=l 
245: B=B*2 
230: IF •A<'B)>0>* 

(A(Btl)=P> 

GOTO 330 
233; IF B=13GOT0 

270 
?A'y-G0TQ 245 
270: B=l 
275:B=E*2 
250: IF <A(B><C>* 

(A<B+1>=P) 

GOTO 320 
283iIF &-I3GOT0 



.-iir.OTO 275 

/■=":?EEP UPRAISE 
■PI til SUP LE 
PADaP...": 
GOTO JO 

-■■' j: f:EEP !:PwUSE 
"TIP TENANT 
DU NuPD. ..■: 
GOSUB 500! 
G010 2:40 

■■:0:EEcP If PAUSE 
-TIP VEIIAIIT 
0*.< SUIi. . . -: 
GOSUB SOO: 
GOTO S40 
:FEEP UPMJSE 
"TIP '-'EHJIT 

DE L.OUEST.. 
. ":G0SUE: Wj 
:G0T0 340 
-:0:EtEF i:FHUSE 
"TIP VENAtlT 
DE L.EST.. 



:&JSU. 
J IF I 



500 



5FEEP 1 
:LET T-T+ll 

PAUSE "NOUS 
SOdMES TC4XH 
ES ! ":G0T0 
40 

?T<':EEEP UPAUSE 
"PATE... SAU 
•i/E !":GOT0 4 


500:-ALEH-V=MBS 
<439147*V*Z^ 

■;io:;-:=ts*i:y=23« 

V 

520=V=Y-INT (Y/X 

>*x 

530:«=ItlT <10*V/ 

X) : X=0 
540:RETUPH 
600: PEEP i: PAUSE 

"EPPEUP.PECO 

MI1EHCEZ...": 

RETUPH 
70Tj:INF-UT "UltE A 

UTRE MISSION 
? "ifi* 
710:iF Af="0UI" 

GOTO "A" 
7."0:&EEP KPPINT 

■ALORS A LA 

PPOCHAIHE i" 

I END 



CONCOURS HEBDOGICIEL 
GEORGES LECLERE ANTENNE 2 



programmes retenusseronl edite 
par SHIFT EDITIONS sous forme 
de K7 ou de disquette et les au- 
leurs. par contrat, toucheront les 
royalties correspondant aux 
ventes de leur logiciel. 



LE JURY 



Preside par Georges LECLERE. 
des speciahstes de DOM. de la 
FNAC. d'HACHETTE, d'lLLEL. de 
la REGLE A CALCUL. de SIDEG. 
de SIVEA et de VlFI NATHAN se 
reuniront pour admirer vos osu- 
vres. Annonce des resultats le 25 
mai. a vos claviers ! 



LES PRIX 



Le jury choisira le meilleur logi- 
ciel pour chaque modele d'ordi- 
nateur et, parmi ces meilleurs lo- 
giciels, le gagnant toute catego- 
rie qui en plus de son contrat 
d'edition et de ses prix, aura le 
plaisir de passer en direct a la te- 
levision ; la gloire ! 



RECOMPENSES POUR LE GA- 
GNANT TOUTE CATEGORIE : 

- Un contrat d'edition de son lo- 
giciel 

- Un APPLE lie 

- Un CANON X 07 

- Un COMMODORE 64 

- Un ORIC ATMOS 

- Un Agenda eiectronique CASIO 
PF 3000 

- Un TEXAS Tl 99/4A 

- Une imprimante EPSON 

- Un abonnement a vie a HEB- 
DOGICIEL 

- Une disquette HEBDOGICIEL 
APPLE N° 1 

- 5 logiciels VlFI NATHAN 

- 5 logiciels ROMOX 

- 5 modules de jeux TEXAS 

- 10 logiciels de jeux pour COM- 
MODORE 64 

- SHARP PC 1245 

- SHARP PC 1500 

- 1 cassette HEBDOGICIEL 
le Chateau du Diable 
pour ATMOS 

- 1 cassette HEBDOGICIEL 
centrale Nucleaire 

pour ATMOS 

- 1 cassette HEDOGICIEL 
ORIC/ATMOS N°1 



- 1 cassette HEBDOGICIEL 
TEXAS N« 1 

- 1 cassette HEBDOGICIEL 
TEXAS N° 2 

- 1 cassette HEBDOGICIEL 
commodore 64 N° 1 

- 1 cassette HEBDOGICIEL 
commodore VIC 20 N° 1 

- 1 cassette HEBDOGICIEL 
T07 N°1 

- 1 cassette HEBDOGICIEL 
Canon X-07 N° 1 

RECOMPENSE POUR LES GA- 
GNANTS DANS CHAQUE CATE- 
GORIE D'ORDINATEUR : 

- Un contrat d'Edition de son lo- 
giciel 

- Un agenda eiectronique CASIO 
PF 3000 

- 20 K7 vierges 

- Un abonnement d'un an a HEB- 
DOGICIEL 

et bien d'autres prix qui viendront 

s'ajouter au cours des semames 

a venir. Cloture des envois de 

programmes le 2 mai. 

Le reglement est en page inte- 

rieure. 



su/te de la 

page 18 (j^ 




>^ COMMODORE 64 



SOLUTION DE L'HIPPOREBUS : 

10 FOR 1=1 TO 10 

20 READ X 

30 PRINT CHR$(X); 

40 NEXT I 

50 END 

60 DATA 65,83,84,69, 

82,73,83,81, 

85,69 





22503 
22518 
22311 
22512 
22513 
22514 
22313 
2232B 
22525 
22530 
22535 
22340 
22343 
22550 
22S52 
22355 
22560 
225S5 
22373 
22375 
22580 
22585 
22390 
22595 

22397 
23008 
23i?01 
23904 
23003 
230M 
23010 
23020 
23830 
23033 
23049 
23850 
23060 
23070 
23880 
23098 



LM»LM-1 

FRINT'TTIMMMI TOTAL DES RECETTE3 

PRINT")* RECETTES TOTAL DEPLPIS 

FRINT" DEBUT fiNNEE ■ 

PRINT 

TDT-0 



FOR ri»l TO 12 

X=X+RR<I,H> ■ Z2=X/LM : GOSUB 13080 

NEXT M 

PRINTX*. 

TDT-TDT+X 

X=ZZ:G0SUB 13980PRINTX$ 

NEXT I 

PRINT"IWITOTRLIMI "; 

X=TDT:00SUB 13080-PRINTX* 

PRIMT-'WWSOIT UNE I1QVEN1IE" , 

PRINT" SUP "-LI1;" MO IS DE 

X=TDT/LM GOSUB 13000 

PRINT" -;x»;" F" 

PRINT" J»MH SE-COPY-S«SUIT£'- 

GETR* IF P*»"C"THEM OOSUB 12088:GOTO 22308 

IF R«<>"S" 00T0 22395 

GOTO 2850 

REM *«■*••••••«•*•****. 

PEH *• *• 

REI1 •• ADflPTABILITE M 
REM ** •• 

REM •*•*••*•*•*•*•*••• 

REM LIGNE 2 COLORIE ECRRN EN BLEU 

REM WAIT 653.1 HTTENTE APPUI SUR SHIFT 

REM GET, PREND UN CARACTEPE AU VOL 

REM "7i" EFFACE L'ECRAN 

REM "»" ■ CONTRRSTE INVERSE 

REM -W ■ FIN DE COHTRASTE INVERSE 

REM DEPLRCEMENTS DU CURSEUR : 

REH "«" VERS LE BAS 

REM "1- VERS LE HflUT 

REM "M" VERS LA DROITE 

REM "■" VERS LA GALHrHE 

REM "«" PLACE LE CURSEUR EN HAUT fl G«JCHE 

REM REVOIR LE SOUS PROGRAHME DE COPIE ! 

REM DES LIGNES 12008 A 12038 



PAYS ET CAPITALES 



Apprenez la geographie en vousamusant. grace a ce pro- 
gramme pour TRS 80 
Modele 1, niveau 2 16 K. 

Pascal ZERBI8 

Utilisation du programme : 

Une Jois le programme charge taife RUN. N'oubhez pas de brancher le 

son. 

Une fois le menu choisi. e! !a question posee, il faut repondre ; vous 

avez droit a 4 reponses. 

Onpeutreveniraumenuatout instant, enappuyantsur '" etENTEHala 

place d une reponse. 

Si Ton veut connaitre la reponse plus rapidement, au lieu de proposer 

des solutions, il surf it d'appuyer sur I et ENTER, la reponse est affichee 

Dans le caso-u il vous donne la reponse avec la fleche ' ou au bout de 4 

reponses tausses. le simple fait d'appuyer sur une louche quelconque 

lui permet de vous poser une autre reponse. Les pays sont du monde 

entrer. Et les mdicatifsdepartementaux sont ceux de toute la FRANCE 



TfcS 



80 




-CLi 



:-" ---as. VIENTI^E, LESOTHO. r83£BU.t-ISflN.BeYR0uTM.LIB€Blfl.N»ia0VIA. LI FWE.TQI 

--dagascob, ontananapivo. natflui . zcme*>. rv*ovsi.Ku».o lu 

■■--.. ■ I RWU :• HRLTE. LA VALETTE. MARQC. RABAT. MAURICE. PORT-LCUIS. ?«U*>1TANIE. NOOA 



wus. 

KCHOT1 

-'K DATA.IECHTENSTeiN.VM)UZ.I«U}IVE.IinLE.flFRiaue OU SUDiBCP. SUD-AFRICAlNE ' .PBET 

;M:«i.;'.::==t-.ij-v:E;-r,^»iit;'..MW>-.E-. --■..-- •...•..: ■ .-'■■- 

1A.OINE N0TI0N0LiSTE.FORhOS£».T-ai P 



E. CAMBODGE. phnOm PENH. CAP VEST* ilES DU'-PRI 



1lUtl«tt«t(llttttlt(tt1.l1.l!l 



5 POKE1 6561. 0=POKE1 £552. ! 22: CLEAR50 

E ■...!......* INTERDIT DE REPRODUCTION MEME PARTIELLE. DANS TOUT PAYS. Y COMPRIS t 

•U. R. S. S. L'AUTEUP. 

P A S C a L. 

...*.-.**.. FINI LE 5/02/84 *■**.* 

9 DEFINTA-U:CLS:DIMT*<257>.U»f257):RAND0M:PRINT"VE(JILLEZ PBTIENTER UN INSTANT .. 

. -:PRINT:PRINT:F0RT = lT0257:READT»(T).U«f.T):NEXT:X>=l:E=14 

IB READA*:IFA«="*"THENX=l:DOTO15ELS£POKE3I232-X.VBLfA*>:X=X*l:GOTO10 

15 POKE 1652^.. 1 :PufE 15527, 122:M=USRt0> 

16 PRINT-N'OUBLIEZ PAS DE BRANCHER LE SON ...": PRINT : PRINT 
20 READC».D:IFC*'="-"THEN25£LSEPOKE3125B-VOL<C«>.D:GOTD20 
25 PRINT-ATTENTION CA COMMENCE ..." 
30 READA*: IFO.*=-.'-THEN4BELSEP0KE31232.X. VAL<A») :X=X*1 :GOTO30 



TRS ET JE SUIS DE 
":D-1 

+2B:GOSUBE000:D=D-I: 



' INVERSE. 



4B M=USR<B> 

45 GQSUB700B 

100 D*=" BDNJOUR, BDNJOUR JE M* A.PPELLE 

LA GENERATION B0. VOULEZ-VGUS JOUER AVEC MOI'> '1=0. 2=N' 

110 IFD=LEN'D»)rHEM200ELSEPRINTa85&. MID»(D*. 0. 17) ;:L=RND<20)- 
GOTD110 

150 L=L+1 : IFL=32£5BTHENL=0ELSEGOSUSEe2B 

200 A*=INKEY«:rFA*=""THEN!5aELSEIFVAL'A*>=2THENENDELSEIFVAL<A*)=lTHEN21SELSEIFVA 
LfA»> () 10RVAL(A») O2THEN2B0 
215 CLS:PRINTCHR*(23> 

22B PRINTS288, "P AYS ET" ; : PRINT3526. "C A P I T A L E S" : 

23B PRINT3916. ■■ • E N T E R' " ! : L=RNDf4505 :GOSUB801 0: ; PRINT39 1 6. « " ! :L=RN 

DUSfl) :GOSUB3020 

250 Ai=lNKEY«:lFA»=-"TH£N230 

251 IFPEEKf 16600) =1THEN252ELSE230 

252 CLS:PRINT"OUE DESI REZ-VOUS: " : PRINT : PRINT" 
1JTR0UVER LES CAPITALES A PARTIR DU PAYS. 
2>L" INVERSE. 

3) RENTRER LE NOM D' UN PAYS ET AVOIR LO CAPITALE 

5>TR0UVER L'INDICATIF DEPARTEMENTAL A PARTIR DU DEPARTEMENT. " 
255 PRINT3912."P0U3 REVENIR ICI APPUYEZ SUR ■ ■"; 

255 FORL=1T038:PRINT3962. "a"; :GO5UBE0BB : NE/T: F0RL=3BTD1 STEP-1 : PRINT3942, " "ItGOS 
UBSBB0: NEXT :F0RT=1T01B: NEXT 

2E0 A*=INKEY»:IFA*=""THEN256ELSEIFVAL<A»)>5ORVAL(A*>(=0THEN252 
350 ONVALlA*)GOTa608. 38BB, 3500. 6BB0, 4500 
400 M=U5R<0) :A=RND(1E1 I *95: AI =fl: C»"-" 

610 M=USR(B>:PRIMT3e56.T*(A) ::AI=Al*liIFAl=5THENPRINTSS5E. "VOICI LA REPONSE: " i I F 
ORL«*0TO-i080STEP-100:GOSUBS80B:NEXT:M=USR<B):PRINT3E5£.Ll*rA>::FORL=0TO-lB80ST£P- 
IBB:GGSUB8B20:GOTO440 

430 F0RT=lT0939:NEXT:M=USRfO) :PRINT3e5E. " ";:INPUT" "iC* 

632 M=USR<0>:IFC«="*"THENPRINT3E5E,U*<A)::FORL=lTa3B:GDSUB£B10:GOTQ44BELSEIFC»=" 
3"THEN252ELSE1FC*=U*1A)THENPRINT3542. "BRAVO" ; :GOSU86000: FDRL=1TO50= GOSUBE020: NEX 
T:GOT04BB 

435 COSUBE5BB:GOTO4I0 

44B A»=INKEY*!IFA**""THEN440£LSEIFA«="3'"THEN252ELSE40B 
649 At=INKEY» 

5B0 DATA1 . AIN..2. OINE. 3. OLLIER. 4. ALPES-HTE-PROV. 5. ALPESCHAUTES-) . E, ALPES-MARITIME 
S.7,BRDECHE.B, ARDENNES. 9. APIECE. 10, AUBE. 1 1 . AUDE. 12.AVEYR0N. 13. B. -DU-RHQNE. 14.CAL 
VAD0S.15, CANTAL.I6.CHARENTE.17.CHBRENTE-MARITIME, IB. CHER. 19. CORREZE, 20. CORSE. 21 , 
COTE-D' OR 

510 DAT022. COTES-DU-NORD. 23, CHEUSE. 24. 00RD0DNE. 25. DOUBS. 26. DROME. 27, EURE. 2E. EURE 
-ET-L0IR.29.FIWISTERE.3B. CARD. 31. GARONNE (HTE-), 32. GERS. 3T.GIP0NDE. 34 . MERAULT. 35. 
ILLE-ET-VILAINE.3E. INDRE,37. INDRE-ET-LOIRE. 38. ISERE. 39. JURA. 4B, LANDES 
528 D0TO41.LOIR-ET-CHER. 42. LOI RE. 43. L01 RE(HTE-) . 46, LOI RE-OTLANTICUE. 65. LOI RET. 4E. 
.LOT.47.LaT-ET-GARONNE.4E.LDZEfiE.45.MAINE-ET-LQIRE.50.MCNCHE.51.MPRfJE.52.MARNEiH 
TE-).53.MAYENME.54.MEURTHE-ET-MOSELLE.55.MEUSE.5E.MORBIHAN,57.M0SELLE.5S.NIEVRE 
538 DATA59.NORD.EB.0ISE.S1.0PNE.E2. PAS-DE-CALAIS, E3. PUY-DE-DOME. E4, PYRENEES ATLA 
NT.. E5. PYRENEES <HTES) . 6E. PYRENEES-ORI ENTALES. E7. RHIN< BAS-> . EG. RHIN'HAUT-) , 69. RHO 
NE. 7B. SAONE(HTE-). 71 . SBONE-ET-LOI RE. 72.SARTHE. 73.SAV0IE. 74. SAVOIE'HTE- ) . 75, PARIS 
'VILLE DEJ 

54B DATA7E.5E1NE-MARITIME.77.SEINE-ET-MARNE.7S. YVELINES, 79. SEVREStDEUX- J . 80. SOMM 
E. Gl .TARN, B2, TARN-ET-GARONNE. E3. VAR, es. VAUCLUSE. 85. VENDEE. E6. VIENNE. S7. VIENNEtHT 
E-).SE. U0SCES.E9, /ONNE.Sa. TERRIT. BELFDRT, 91 ■ ES50NNE. 92. HAUTS-DE-SE INE 
550 DQTA93. SEINE-ST- DENIS, 94, VAL-DE-MORNE. 95. VAL-D' 01 SE 

ieaa dataafghamstan, kabul. afridue du sud.le cap. albanie. tirana.olgerie, alger. r. 

D.A. .BERLIN-EST.R. F. A. . BONN, ANGOLA. LUANDA. ARAB I E SAOUDITE. R I YOD. ARGENT I NE. BUENOS 

AIRES. AUSTRALIE. CAMBERRA. AUTRICHE. VI ENNE 
1 1B0 DATOBAHAMAS. NASSAU. BANGLADESH. DACCA. PARBADE. BR I DGETOWN, BELGIOUE. BRUXELLES. B 
ENEN. PORTO-NOVO. BIRMANIE, RANGOOM. BOLIVIE. SUCRE. BOLIVIE, LA PAZ. BRESIL. BRASILIA. BU 
LGARJE. SOFIA. BURUNDI. BUJUMBURA 

1288 DATACAMEROUN. YAOUNDE. CANADA. OTTAWA. REP. CENTRAFRICAINE. BANGUI . CHILI . SANTIAG 
0. CHINE. PEKIN.CMYPRE, NICOSIE. COLOMBI E. BOGOTA, CONGO. BRAZZAVILLE. COREE DU SUD.SEOU 
L.COREE DU NORD, PYONYANG. COSTA-RICA. SAN JOSE. COTE D* I VOI RE, ABI OJAN 
121 B DATACUBA.LA HAVANE 

1300 DATADANEMARK. COPENHAGUE. DJ I BOUT I . DJIBOUTI , REP. DOMINICAI NE. SA INT-DOMINGUE 
1400 DATAEGYPTE. I.E CAI RE. FEDERATION DES EMIRATS ARABES UNIS, ABU-DHOB I . EOUATEUR. 
UITO. ESPBGHE. MADRID, ETAT-UNIS, WASH INGTDN, ETHIOPIE. ODDIS-ABEDA 
150B DATAF1DJ1.SUVA. F I NLANOE. HELSINKI .FRANCE. PARIS 

1600 DATAGABDN. LIBREVILLE. GAMBIE. BANJUL. GHANA. ACCRA. GRANDE-BRETAGNE. LONDRES. GREC 
E.ATHENES. GUATEMALA. GUATEMALA. GUINEE. CONAKRY. GUINEE-BISAU. BISSAU. GU [NEE EQUATORI 

f.i.F, cr.i fif-rj. i,i ,f!,<ic\. r.EnnriErowN, nuvnMJEfHOLi.lt Paramaribo 

1700 DA TAMA IT I. PORT AU PRINCE. HAUTE-VDLTA. OUAGADOUGOU. HONDURAS. TEGUC IGALPA. HONOR 

I S. BUDAPES T , MONG-KONC. V I C TOR I n 

1P.00 DATA! NDE. NEW DELHI. INDONESIE, DJAKARTA. IRAK. BAGDAD. IRAN, TEHERAN. IRLONDE.DUBL 

IN. ISLONDE, REYKJAVIK. ISRAEL. JERUSALEM. ITALIE.ROME 

19BB DA TAJAMA1 DUE. KINGSTON. JAPON. TOKYO. JORDAN IF, AMMAN 

2B00 DATAKAMPljCHEA.PHNOM-PENH.KENIA.NAIROBI.KOWEIT.KOWEIT 



EI 
Aj^T^" 2IB6 DAT^CCMOPES, «ORD'Jr.EL SflLVBDOR. SON SALVADOR 

1110 DATA.1EUCUE. MEXICO. MONACO. MONACO. MOMJOLIE. OULOK BOTOR. MOZAMeiOOE. f«PUTO 

_'_C8 DATAfvauPLJ.nCnkO. NEPAL. KATMANDOU. NICARAGUA. MANACuA. NIGER. NIAMEY. NIGERIA LAGO 

5.N0RVEGE. OSLO. nOUVELlE-IELANDE. WELLINGTON 

2380 DATAOHCN. MOECDT£. OOGOMDO. ..CMPAlA. PAhlSTAN. ISlAMA&AD. PANAMO. PQNtoVt. POPOUASIE 

. PORT-WRESBV.PflRPGUfiV.ftSUNCIOPt. POvS-E-AS- AMSTERDAM. PEROu. LIMA. POLOGNE. VBSSOVIE P 

ORTUOflL.i.ISBOMNC. RGlmSnie. B'JCAREST. Rwanda. KIGALI ^^ 

235B DATBPHILIPPINES. QUEZON CITY. PUERTO RICO. SAN JUAN. CATAR. DOHA. SAINT-MARIK. SAN 

-^K.r'-G.SEvcHELLES.vicTOPiA.H-s^iL^-.Z'.rjiE.^-.E. :l;\."me. oar-es-salaam 

1403 DATASEN£GAL.DnKBP.s;EflPALE0NE.FREETCWN\SINGAPOUB.SINGAPOUR.SOMALIE.MOGAOISH 
U. SOUDAN. KHARTOUM. SRI LANKA. COLOMBO. SUEDE. STOCKHOLM. SUISSE. BERNE. SURINAM. PARAMOR 

2500 DATATAIHAN. TAIPEH. TANZANIE. DODOMA. TCHAD. N* DJAMENA, TCHECDSLCVOOUIE. PfKCUE. TH 

AILANDE. BANGKOK. TOGO. LOME, TRINITE ET TOBAGO, PORT OF SPAIN, TUNISiE- TUNIS. UiROUIE 

ANKARA, U. R. S. S. . MOSCOU. URUGUAY, nONTEVI DEO. VENEZUELA. CARACAS. VIETNAM. HANOI 

2S0B DATOYEMEN DU NORD. SAN" «. YEMEN DU SUD. AL-CMA' AB. YOuGOSLAVIE- BELGRADE. ZAIRE K 

I N5HASA. ZAMBIE. LUSAKA, ZIMBABWE, SALISBURY 

o000 M=USR<a) :A=RNDf 1S1 )«-95= A2=0: AA*=- " 

30B5 M=USRi0i:PRINT3S55.U«'A) i :02=A2-1 i IF02=ST«EN'.02B 

3BI0 F0RT-lT0993>NEXTin-USR{aiipRIHTSeS6. B -:=INPUT- -j AA«:m-liSR(0> : IFAA»--t-TME 

NPRINT3S56.T»(ft>l :FORL=lTOre:GDSUBS0l3:GOTOT3T-eELSEIFAB*=-a"THEN252ELSEIFAA«=T». 

AfTHtNPRIHT3542. "BRAVO" s : GOSUBEEDB: F0RL=1 T050: G0SU8SB2BSNEKT: COTO'Oea 

3B11 GOSUB65BO:GOTO3B05 

-020 PRINT3S5E.-V0ICI LA REPONSE: ":: FORL=BTO- 1BBOSTEP-1B0:GOSUBSB00:NEXT:N=USR< B 

i :PRINT3E5E. T»(A) ". = FORL=0T 0- 1 CBBSTEP- 1BH: G0SUBEB20: A2=B 

3029 A««INKEY» 

3030 A«=INKEY»: IFA* = ---THEN:.030ELSEIFA* = -3-THEN252ELSE30ea 

SSee M=USR(Ui:PHINTaS5E, ■■ENTRER LE PAYS: "J : FORL = 75T025STEP- 1 : GOSUBSBB0 = N£XT :M=uS 
R(0):PRINT3eS6." "ii INPUT" - ; EE* : M=USR( 0> 
3585 IFEE»="3"THEN252 

358S FaRTT=95T02S6: IFT*(TT) =EE«TH£N3520ELSENEXT 
3510 PR1NT3B5E. "N-EXISTE PAS.": 

351 3 L=- I B3 : ODSUDOOOeiL— SB I GOSUE-SOQ0: L=-70: GOSUBSBBB 
3515 A»=INKEY»:IFAt=""TWEN3513ELSEIFA»=-3-THEN252ELSE3-SB0 

35.1.-0 PRINT335E. "LA CAPITALE EST : ■■ : : F0RT = 1 TDEJ9B: NEXT:M=USR< 0) : PRINT3656. U«l TT> : 
3530 FORL=0TO327E0:GOSUBB010 

3558 A*=INKEY*:IFA*=""THENN£XTELSEIFA»=-3"THEN252ELSE35B8 
4BB0 M=USR(0) :PRINT3B5E. "ENTRER LA" : : F0RL=5BT025STEP- I : GOSUBS880:NEXT :M=USR<B) :P 

RINT385E. "CAPI TALE: "; :F0RL=25T01 STEP- 1 : GOSUBSBBB: NEXT:M-USR< B) : PRINT3B56. IN 

PUT" ":EA*:M=USRCB> iH 

4005 IFEA»=-3"THEN252 

400E FORTE=95TD256:IFUKTE)=EA»THEN4020ELSENEXT 

4B1B PRINT3B56. "N'EXISTE PAS. " 5 

4013 L=-I00:GOSUBE00O:L=-5B JGOSUBSBBB: L=-70: GOSUBE80B 

4015 A»=INKEY*:lFA»=-"THEN4013ELSEIFA«=-a-THEN252ELSE4000 

4020 PRINT3B5E. "LE PAYS EST : - ! :F0RT=1T0999= NEXT : PRINT3S56. " *t:PRINTa 

S5E. T»CTE> : r-Kinirt 

4030 FORL=0TO327EHSTEP1B0:GOSU83B10 

4B50 A«=INKEY*:lFAt=-"THENNEXTELSEIFA»=-3"THEN252ELSE40BB 

4508 M=USR<0i :A=RND(95) :A3=0:H»=" 

4550 M=USR<0»:PRINTS856.U»(A) : :A3=A3*l: IFA3=5THEN4598 

4560 FDRL=lTO30:GOSUBG02O:NEXT:M=USRlfl) : PHI NT3E56. " ":: INPUT" " lH«:M=USRi B) • 

IFH»='-r-THENPRINTaE64.T*fA) : : F0RL=1 TO30: GOSUBB01B: GOTO4700 : ELSEI FH»=-3-TMCN252CL 

S£IFH* = T»(A)THENPRINT3542. "BRAVO" :: GOSUBSH00 : FDRL *■ 1 TO50: G0SUB882B:NEXT : 50T0450B 

457B DOSUB650B:GOTO4558 

4590 D=l:G»»" L'INDICATIF DEPARTEMENTAL EST: ■ 

4EB0 IFD=LEN<G«>TH£N4E5BELS£PRINT3856. MID»IG*. D. 17> : : D-D*l : L-RNDi 100) iGOSUBSBaBi 

G0T04688 

4S58 PRINT385E. T»(fi)J 

6660 L=RNDC1BB1 :GOSUB8020: L=-L: GOSUBE02B 

4699 A»=INKEY» 

478B A»=INKEY»:IFA*=-"THEN4700ELSEIFA*--3"THEN252ELSE45B0 

4B8B DATA33.1S. 122. 17, 19, 122, 1.255.3.54. 128.237, 176.201.* 

5080 DBTA29. 140.36, 140.31, 140.32, 140. 33. 148,34. 140.35. 140. 3E. 176.37. 176.38. 17E, "- 

9, 176.48. 144. 104, 130. 105, 131. 186. 137. 107. 16B. IBB. 164. 189. 176. 174. 131. 175, 137,176 

. 166. 177. 146.26 1. 13B. 242. 137.243, 188. 3BE. 137. 3B9. 144.373. 13B.374. 1E0 

50B2 DATA43B. 13B.439. 148.503. 17B.567. 17B. 631. 149. E94. 154.757.136.756. 16B.82B. 129 

.819. 152.818. 160.882. 129. S81. 134, 888. 152.879, 160.963. 129.942. 134,941. 14B. 94B. 176 

.339, 176. 1BB2. 1 31 . 1BB1 . 131. 1000. 140.999. 160.998. 16B. 997. 152. 996. 176.995. 176 

5084 DATA994. 176.993, 176.992. 176.991,176.990. 176.989. 17E.9BB. 176.987. 164. 96E. 148 

.985. 160. 964. 14B. 983. L31 . 9B2. 1 31 . 91 7. 1 76, 916. 176.915. 14B. 914. 131 . 91 3, 1 38. R49. 164 

.848, 164.847. 137.762. 17E.781. 148.780. 13B, 716. 144.715, 137.650. 165. 5C5. 170.521. 149 

5086 DATA457. 149, 393. 1 7fl. 33B, 1B4. 331 . 129. 267. IGfl. 26E. 134. 285. 1S8. 2BG. 134. 2B7. 129 

. 16 3, 160. 144. 152, 145. 134. 146. 131 , B3. 17G.96. 152.85. 140.86. 131 . B7, 1 31 . 88. 1M.23. 17 

6. 26. 176. 27. 17E. 28. 140 

5010 DATA204. 131.203. 131. 138. 17E. 137. 148. 136. 176. 199. 131. 198. 16B. 197. 176,260. 134 

.259.168.323. 170. 3BE. 163.453. 137.654. 176,455. 176.456. 176,202. 164.281. 140. 2KB, 168 

■ 264. 129,263. 168, 32B. 137 

5B12 DATA244. 131.265. 131 . 1B2. 176. 183. 148. 1 B4. 176. 249. 131 . 250. 140.231,176.316.137 



17E.504, 176. 246. 152. 247. 14B. '. 
134, 168. 133. 176. 



. 140.215. 1BG. 216. 18 



148. 21B. 140 



. 317.146. 381. 169.644. 154,587. 134. 5BE. 176.585. 

, 312. 130. 313. 148. 376. 134 

5020 DATA148. 176. 149, 140, 150. 140. 151 . 14 

. 166. 148. 167. 168. 168. 140. 169. 148. 170. 14 

5025 DATB218. 176. 21 1. 152. 212. 140. 213. 141 

.219.140.220. ISA. 221. 17E, 227. 17E. 228. 152.229. 140.230. 140.231. 140. 232. 

.234. 140.235. 140.236. 140, 237. 164.238. 176.274. 131,275. 137,276. 16B. 277. 140. 278. I4B 

5 ™' ??I B ~?' It5' 28B ' '"' 2"' 14B * 2B2 ' 14t ' rB3 " 1 " B - 28* ■ 13 *- ^ 131. 291. 131. 292. 137 

5030 DATA.S8. 160. 2B7. 176. 286.176,289.176.290. 17G. 368. 1EB, 349, 131.355, 131.356. \\B 

.612.150.420.169,473. 170.683. 149,539. 149.549. 170.602.170.6.4, 49 CM 76 gV« 76 

,6B9.176.607.17G.606.I76.6B5.176.E67.]31.6E8. 131.672. 131.676, 131.677. 3? 

5040 DATA791, 176, 792, 14B. 793. 14B. 794. 160, 795. 140. 796. 140. 797. 140. 790. 168. 799. I4B 

,800.140.801. 140.602. 160.603, 140.804, 140. BBS. 160. 886. 148. 8B7. 14fl. 8*8. 14B. 6*9. 176 

.654, 143. B55. 176,873. 176.874. 143.928. 131.921. 131.922. 131.923. 131, 924. 131 

i^. "IS is!:^: ill:?; 1 i3i,M,isi, ^ ,i3i,8 ^ ra - 9si,i «'« a ' >»•»»•»» 

5580 DATA33-1B. 122. 17.B.6B. 1.0,4.237, 176. 201.* 

E0BB FORAD-15571TO155D0:POKEAD. I 88 ! POKEAD*! 7. I881NEXT 

6050 FORAD-15E35T015644:POKEAD, 1 63IP0KEAD- 17. 163INEXT > RETURN 

6500 F0RR-1T0RND'3):M-USR«B1 IFORAE-15577T01S579: POKEOE, IBBi PDHFAE464. 143.POKEOF- 

0. !S;KK2iuJ2wS** 17, 1GB ' PDKE0E * B '- '".PWKM5. .40.PO.EAE.79. U0.L-RN 

^ M "" 0E ; 1 f""° l ^ 2STEp - 1,p h EAE. 168:P0KEAE.64.143iP0HEAE.2. UB. POhEAE.66. 14 

0.POKEAE-17. 1EE:P0KEAE*B1. 16 J: POKEAE- 19. 140! P0KEAE*D3. 14BIMEX T iNf XT Ri HE TURN 

7000 TT.=STRINO.f|6.0>:POt 1 E16326.24B.POKE16327.127 

7010 REODI*i IFI»."*"rHEN7020ELSEPOKE32752*l.VAL'I*! 

7020 RETURN 

7010 DATA203. 127. 10. 175.69. 16. 254.23B. 1.211.233.37.32.266.281.. 

?S B8 ,.™ (ei652G '''' BiPOKeiGa27 ' 127 ''' OKE * ; ' 7E ' 3 ' 37,]( - u SRlLt.POKE16S2S 



*HGOTO7010 



1 RETURN 

80. POKE1E526.2401POKE16327. 

1 RETURN 

802B P0K616526. 248: POKEI E527. 

t RETURN 
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27IP0KE32763. 4411 
27tP0KE32763.43D 



■'■■'-■ 1 ■■ :ivm :i ■,. i 



KKK1B327. 123 

P0KE16326. 1IP0KE16327. 122 



HEBDOGICIEL 27, rue du Gal-FOY 75008 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 340 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 8,00 = 416 FRANCS. ABONNEMENT POUR 6 MOIS : 180 FRANCS. 



NOM: 

PRENOM: . 
ADRESSE : 
REGLEMENT JOINT : 



[ I CHEQUE 



[ JCCP 



MATERIEL UTILISE : 
CONSOLE : 
PERIPHERIQUES : 



PETITES ANNONCES 
GRATUITES 



RECHERCHE pour Tl 99/4A mo- 
dule Basic Etendu + K7 Basic 
etendu par soi-meme + syntheti- 
seur de parole + module PRES- 
COLAIRE ou EARLY LEARNING 
FUN + K7 "MES PREMIERS MOTS 
CROISES" Chez VIFI NATHAN. 
Monsieur LAFON. Tel. (59) 
6470.84 (le matin). 

VDSmod. "FOOTBALL" :120F 
el CARWAR pour Tl 99 : 80 F.. 
ou ech. les 2 contre "PAR- 
SEC ou "Tl INVADERS" ou 
"OTHELLO". FAUVEL. Tel. : 
660.23.45. 

Rech. Photo, des prog. Tl 99/ 
4A8.S. et BE. paru dans HEB- 
DOGICIEL (1*1. 2, 4, 5, 6. 8.9. 
10. 11. 12. 13. 16. 17, 18. 

Rech. pour Tl 99/4A. cont. 
lect disk, a integrer ds bait. 
ext. Alain CROZET. Tel- : (45) 
69.02.96 

Vds Tl 99/4A (08/83) + mod. 
SECAM + Modul. PERITEL + 
Man. Jeux + B.E. + Tl INVA- 
DERS + FOOTBALL. Le tout : 
2000 F ROUX Christophe 
4 impasse des Cigales 33320 
EYSINES. Tel. : (56)28.59.77. 

Vds CASIO P8100 + Ext. Mem. 
1Ko (OR-1) + Int. K7 (FA-3) : 
1.050 F. Stephane COLLOT. 
100 rue de Bar, SAVON NIERES 
55500 BAR LE DUC. 

Ach. K7 B.E. pour Tl 99/4A : 

400 F. faire offre Laurent 
DIDIER, 52 Gde Rue des Char- 
pennes. 69100 V1LLEURBAN- 
NE. Tel. : (7) 889.70.74 

Ach. pour Tl 99/4A ttes Ext. 

(en part, boitier ext. Periph. + 
Carte 32Ko) Mr BELMESSIERI 
Le Puisat 73240 SAINT GE- 
NIX/GUIERS. 

Ch. prog. CANON X07 N° 1 a 
23 HEBDOGICIEL. Philippe 
MIENNE. 61 rue J. Ferry RO- 
SENDAEL 59240 DUNKER- 
QUE. Tel. : (28) 20.49.34. 

Ch. corr. pour ech. Livres et 
prog, sur Tl 99/4A. Ach. HEB- 
DOGICIEL n Q 2. 6, 7. 8. 11. Da- 
niel LAVAL rue de la Ressenle 
Vallauris 06220. Tel. : (93) 
64.26.12. (LE SOIR) ou (93) 
62.26.66 (bureau). Creation 
club Tl 00/4A. 

Vds COM. 64 SECAM + Ma- 
gneto. + cord. Video + 1 joys- 
tick + 2 livres + 3jeux sur K) : 
4.300 F. (12/83) ss garantie. 
Thierry BEG UET 134 BdBrune 
75014 PARIS. Tel. : 203.41.28 
p. 322 (bur.) ou 543.59.09 
(ap. 19 H). 

Vds ou ech. Walkmann ss ga- 
rantie + livres + cart. C64. 
Ctre prog. utlt. C64. T0064, 
MASTER1. AUTOFORMATION 
au BASIC, au Gestion fichier 
C64. Ch. Imp. C64. Jean Clau- 
de ROULIETel. : 799.22.60. 

Vds PC1500 (83) + CE 150 + 
CE 155 + Livres + K7. le tt 
tbe : 2000 F Jean Luc MAN- 
NEQUIN 38 rue des Ramiers 
91600 SAVIGNY/ORGE. Tel. : 
996.51.69. (ap. 18 H 30) 

Etudiant ch. donateurs Mat. 
Info. Mr BOUCHAUD 24 rue de 
Vouneuil 86000 POITIERS. 

VENDS TI99/4A Q'anvier 83) + Te- 
le couleur(equipe peritel-vlsion) 
+ cable K7 + magneto K7 + poi- 
gnees de jeux + module basic 
etendu + module Tl INVADERS + 
module CAR WARS + module 
YAHTZEE + 3 livres initiation + 1 1I- 
vre de programmes B.E. + 3K7 ai- 
de a la programmatlon, extended 
Basic par soi-memeetjeux retro 1 
+ 50 programmes. Le tout : 
4000 F Jean Francois BOUDIN. 
Tel. : 869.11.61. (a partirde 14 H). 

VENDS APPLE II + 48K (1/83) + 
moniteur ambre + lecteur dlsque 
+ carte controleur + paddles + 
manuels + nombreux logiciels : 

11 000 F Monsieur MARNEZ 18/20 
place rene Cassin 75010 PARIS. 
Tel. : 584.12.80 ou 249.37.69. (le 
soir) 

VENDS Manettesjeu + cartouche 
education: 400 F. (etat neuf). 
CHERCHE Basic Etendu + astu- 
cos et programmes graphiques 
pour TI93/4A Christian DEZERT, 

12 Ouoi Rollin 21000 DIJON. 



Ach. pour Tl 99/4A mod B.E. 
Alfred MUNSCH 15 ruedesTu- 
lipes 57570 BOUST. Tel. : (8) 
253 12.10. (ap. 20 H) 

Vds Tl 99/4A (12/83) + cord 
Magn + Man. de jeu + mod. 
et prog. dvs. : 2300 F. Mr HA- 
NACEK 02600 VILLERS COT- 
TERETS Tel. : (23) 96.16.06 
(ap. 19 H) 

Vds ORIC1 48K + cab PERI- 
TEL + Alim. + Cab. K7 + Ma- 
nuels + Irs + K7 PRO. 2000 F 
Lucien NfCOLAI. Tel. : (91) 
67.30.96 (WE.) 

Vds ORIC1 48 Ko (10/83) ss 
Gar, -+- Cord. PERITEL + Not. 
+ K7 + Prog. : 2200 F. Mr 
VEYSSIERE 142 rue A. Briand 
94430 CHENNEVIERES. Tel. : 
594.49.38. 

Ach. Pour TI99/4A Bolt. Ext. + 
Ext. 32K. Patrice JEAN 8 pla- 
ce Chemin de Ronde. Apt. 
200. 78340 LES CLAYES/ 
BOIS. Tel. : (3) 055.28.65 
(ap. 19 H) 

Vds pour ZX81 : 6 Ivrs + OR- 

DI. 5(n°1a5) + ECHO.SINCL. 
(n° 207) + 1 tg + prg sur K7. : 
300 F. Mr CHERNI 9 Bd J. 
Guesde 93200 SAINT DENIS 

Vds PC2 ( = PC 1500) (10/83) 
nf : 1.350 F. Afain L'HUILLIER. 
Tel. :(20) 36.81.93. 

Vds SHARP PC1245 ss Gar. : 
500 F. + Imp. + Inter. K7 
CE126P (fonct. av. 1245, 1251. 
1401 et 1255) ss Gar. : 600 F. 
Ou !e tt 1000 av. emb. Ori. + 
man. Alain MEYER 45 rue 
Claude Bernard 75005 PARIS. 

Vds cab. liaison Ord. /Magne- 
to + CAR WARS p. Tl 99/4A + 
cart. n° 41 pour Video Pac 
tbe. Ch. Mod. B.E. p. Tl 99/4A. 
Laurent TILLY. 
Tel. : 826.46.56. (ap. 19 H). 

Vds Tl 99/4A (12/83) ss gar. + 
Cord. Magneto. + Man. Jeux 
+ K7 Basic : 1400 F. Mr TRI- 
QUOIRE. Tel. : 19.32. (81) 
30.55.23. (BELGIQUE). 

Ach. p. Tl 99/4A mod. B.E. 
et moniteur Vincent LEFEB- 
VRE 72 rue des Tourterelles 
59240 OUNKERQUE. Tel. : 
(21) 60.61.31. 

Vds Tl 99/4A + B.E. + man. 
+ magneto + MUSIC MAKER 
+ PARSEC + SPEECH SYN- 
THETISEUR + BASIC PAR SOI 
MEME + Nbrx Jeux etpgrs sur 
K7 et Ivrs. Roland THOMAS. 
Tel. : 823.11.90 

Vds TI99/4A + Prise PERITEL 
+ cord. Sect. + magneto TE- 
XAS et cab. liaison + 2 Ivrs 
et 50 pgrs sur Tl + cab liai- 
son mon. : 1800 F. Francois 
VILLARD 44 rue Sibuet 75012 
PARIS. 

Ach. p. TI99/4A Unite int. de 
disk -f carte cont. de disk + 
carte inter. RS232. EricFREN- 
KlELTel. : 978.04.67. 

VENDS HP41C bon etat + module 
X fonction + module X memory. 
Valeur 3.500 F Vendu : 2.500 F. 
Christophe LEFEBVRE. LA 
ROCHE. CIVRIEUXDIAZERGUES, 
69380 LOZANNE. Tel. (7) 
843.10.28 (apres 20 h). 
VENDS FX702P(2/84) + lntK7(1/ 
83)-HMPTH.((1/83):1.400Fade- 
battre. LA CONDUITE DU FX + 20 
programmes -faimerais avoir ren- 
seignements sur les sorties com- 
mutables du Tl 99/4A (RC 232C 
oumanettes). Retour documents 
assure. Fabrice VOARICK, 52 al- 
lee de la Robertsau. 67000 
STRASBOURG. Tel. (88) 35.69.63 
(apres 19 h). 

VENDS mini memoire B.E. PAR- 
SEC Tl 99/4A. Monsieur F1LIAS. 8 
rueduMaupas95110SANOIS.Te1. 
(3)980.55.98. 

RECHERCHE COMMODORE 64 
SECAM. Monsieur RICHET Tel. 
563.17.09 poste 452 (heures bu- 
reau), ou 472.34 77 (a partir de 
19 h). 

VENDS ZX 81 Sinclair + manuel 
d'utilisation bon etat Prix : 250 R 
Pierre Alexandre KESLER. Tel. ; 
(56) 72.25.18 apres 18 H 30 M 
Kesler, 




queouMCH.modificationde et efficace avec presenta- 
chaine par remplacement tiondesdonneessousforme 
(langage machine). de carte de visite. 



Le premier HEBDOGICIEL 
SOFTWARE pour APPLE II et 

He est livre avec un emballa- 
ge de disquette reutilisable 
et un livret d'utilisation, il 
comprend 12 logiciels : 

BASIC et D.O.S. FRANQAIS 
pour programmer en fran- 
cais sur APPLE avec ou sans 
extension memoire. C'est un 
APPLESOFT en francais dont 
les mots sont redefinissa- 
bles ce qui laisse la possibili- 
ty de personnaliser les ins- 
tructions et de creer votre 
propre langage basic en 
francais. Pour apprendre le 
basic ou pour I'enseigner 
(langage machine). 

PROGRAMMATION STRUC- 
TUREE pour une program- 
mation simplifiee et clarifiee. 
Acces aux instructions 



WHILE WEND. REPEAT, UN- 
TIL. IF THEN ELSE a I'aide de 
I'ampersand (&) (langage 
machine). 

MINI LOGO permet d'acce- 
der au graphisme tortue et 
aux procedures simples utili- 
sees par le langage LOGO. 
Les primitives sont adapta- 
bles. Id6al pourinitiervos en- 
fants a LOGO. 

FONCTIONS SUPPLEMEN- 
TAIRES DE TRAITEMENT DE 
CHAINE. puissantes fonc- 
tions simplifiant la program- 
mation sur les chaines de ca- 
racteres. Plus de ASC 
(LEFT$(MIDS(AS,1,3))) llllsl- 
ble, mais des fonctions Clai- 
res comme GLR. recherche 
un groupe de lettres ou SCH, 
extraction de chaine avec 
critere d'arret alphanumeri- 



SAISIE FORMATEE DE DON- 
NEES, indispensable pour 
une bonne gestion d'ecran 
lors d'une saisie. Permet de 
stipuler le nombre et le type 
de caracteres ainsi que les 
differents caracteres de 
controle. (langage machi- 
ne). 

EDITEUR DE PROGRAM- 
MES pour resoudre tous les 
problemes de correction de 
lignes basic : insertion, com- 
pactage. suppression, re- 
cherche de mots. etc. (lan- 
gage machine). 

GESTION DE CARNET 
D'ADRESSES. une gestion 
de fichier modulaire simple 



BISCRU. un jeu de reflexes et 
d'attention ou il faut eviter de 
laisser tomber les tartes du 
tapis roulant. Un graphisme 
elabore digne des jeux de 
cafe! 

PARACHUT1STE un jeu d'ar- 
cade francais. Les paras 
comptent sur vous pour ne 
pas tomber a I'eau ! 

SOLITAIRE, un jeu classique 
au graphisme soigne. 

Et ENQUETE. mi-cluedo mi- 
mastermind, decouvrez I'as- 
sassin, I'arme. le mobile et le 
lieu du crime parmi une foule 
de suspect. 



Nom'Pronotn 
AdTMM 
Code Postal 



PRIX UNITA1RE : 590 F 

conira 'emboijrsomeni - France + 30 F D 
Mrangcf-t-aOFO 
DATE SIGNATURE 



Vds PC 1211 + CE122 + N° 1 a 
18 de I'OP + Ivrs "LA DECOU- 
VERTE DU PC 1211- et "VARIA- 
TIONS POUR PC 12113. le tt : 
800 F. Joel PEGLION. 15 rue 
d'Autun 06000 NICE. Tel. : 
(93) 87.45.25. 

Ch. Poss. COM. 64 en vue 

Ech. Prgs. Rep. assuree. Fran- 
cois HIMMELSPACH 3 rue d< 
Buyaleuf 67770 SESSEN 
HEIM. 

Ach. B.E. pourTI99/4A. Don- 
ner frais d'exp. Mr MAZE 
59 rue de la Risle. Tel. : (35) 
30.26.02 (ap. 18 H). 

Rech. pourTI99/4A Mod. B.E. 
Didier CROCHETET GUGNEY 
AU AULS 88450 VINCEY. 

Vds et. nf ss gar. (6 mois) 
TI99/4A + Ext. Basic + Mini 
Mem. le tt 1800 F. + jeux PAR- 
SEC : 180 F. + Echecs : 300 F. + 
Othello : 90 F. + BLASTO : 
90 F. + ALPINER : 90 F. + Ges- 
tion de Fichiers : 200 F. + 
manettes jeux : 150 F. + Ivrs 
Texas niveau 1 : 50 R. Niveau 
2 : 80 F + 50 prgs : 50 F. Notice 
technique schema : 150 F. Mr 
FAUVEAUX. Tel. : 474.40.54. 

Vds Magneto Philips N2234. 
Peu servi Telecom. : 400 F. Vds 
K7 jeux ORIC ATMOS Rech. 
util. ORIC. Henri CONAN. 
ANSOUIS 84240 LA TOUR 
D'AIGUES. 

Rech. ts prgs en lang. Mach. 
pour T07. Patrice HUBIERE. 
Ancienne Gare de Chaumes 
en Brie. 77390 VERNEUIL 
L'ETANG. 

Ach. Mod. B.E. pourTI99/4A : 
750 F environ ou Ech. ctre 60 
revues de Cardiologie + Dis- 
ques... Guy AYELLO 21 rue 
Anatole France 81400 CAR- 
MAUX Tel. : (83) 36.49.53. 

Vds COM. 64 + mon. APPLE II 
+ TOOL 64 + cart. Jeu + 4 Ivrs 
prgs : le tt 5200 F. et Vds 
Magneto VIC 1530 + 10 K7 
vierges + 2 K7 jeux + auto 
Formation au Basic + joys- 
ticks :le U1200F. et Vds unite 
Monodisquette COM. 64 et 20 
disk + 1 disk de 6 jeux + trait. 
texte : le tt 3400 F. Materiel nf 
(fin 12/83) ss gar. Emb. Origi- 
ne/Mr CAMBON 885.89.66 
(ap. 19 H et WE.) 

Ech. Prgs pour SPECTRUM 16 
et 48K. Ecrire avec lisle et 
donner idees sur SPECTRUM. 
Alain NEKKEBROEK, ESSE- 
LAER. 7 LINKEBEEK 1630 
BELGIQUE. 

Vds JUPITER ACE(6/83) ja- 
mais servi (Cab. Raccord TV a 
changer) ; 900*F. H.LIPPENS. 
Les Granges. ANJOU 38150 
ROUSSILLON. 

ACHETEpourTI99/4A module Ex- 
tented Basic Jean Christophe 
VAYSSETel. : 672.41.99. 



Vds TI99/4A + cab.K7. Px a 
debattre. Manuel DUARTE 
Tel. : 419.48.11. 

Ch. Moniteur coul. ttes mar- 
ques pour 2000 F. Mr GASS- 
MANN. 17 rue des Fonds Hu- 
guenots 92420 VAUCRES- 
SON. 

Vds K7 pour SPECTRUM 16K 
•■GULPMAN" : 60 F. Mr GENTY 
52 rue des Bleuets 57070 
METZ. 

Vds ord. de Poche CASIO FX 
702P + Int. K7 +■ pgrs + ma- 
nuels. le tt ss gar. : 1200 F. 
SCHMITT 128 rue Coste 
69300 CALUIRE. Tel. : (7) 
829.22.05. 

Ech. livre de D.AHL "84 nou- 
veaux jeux d'ordinateur en 
Basic" Ed. SYBEX. nf : 98 F. 
ctre une quinzaine d'HEBDO- 
GICIELentrelesn°1 et23(pgr 
T07) Eric PETOT31 C rue de la 
Fraternite 90000 8ELFORT. 

Vds VIC20 + Magneto K7 + 
ext. MEM 8K + autoformation 
au basic (1 Vol. + 2 K7) + K7 
Jeux (BLITZ/QUIEMASTER) 
Le tt en be : 2000 F. Tel. : (8) 
760.52.84. 

Vds Micro-ordinateur TRS 80 
Mode! Ill (11/83) 32K + drive 
+ Lvrs. Le tt 10.000 F. Yann- 
Ber PONT. 4 rue de Savoie 
29000 QUIMPER. Tel. : (98) 
52.94.30. (Hres Repas) 

Ach. pour TI99/4A B.E. Alexis 
KOZAK Tel. : (4) 405.03.25 (a 
partir de 18 H). 

Vds TI99/4A + cab. Enreg. + 
B.E. + Parsec + Car War + 
A. Mazing + man. + Lvrs. Le 
tt 2200 F Thierry CRIFASI. 
4 square Monsrgny 78150 
LE CHESNAY. 
Tel. : (3) 955.64.47. 

Vs etes interesses par la mi- 
cro-informatique, vs habttez 
POITIERS ou ses env. Venez 
ns rejoindre pour organiser 
des reunions (ech. conseils et 
prgs) Didier DANTIN 21 rue 
P. de Coubertin 86000 POI- 
TIERS. 

Ach. pour TI99/4A man. Jeu 
pour 80 F + en cadeau TILT 
N° 7. SCIENCES ET VIE N" 796. 
ASTRONOMIE N° 14. tbe. 
Christophe ADAMCZAK (tlj de 
8H a 9H) 

Vds SPECTRUM 48 Ko ss gar. 
(11/83) av. PERITEL. SECAM 
N/B . 6 jeux. Le tt 2500 F. 
Mr GRANGER 20 rue des 
Franchises 38230 CHARVIEU 
Tel. : (7) 832.20.98. 

VENDS TI99/4A8000F +manet- 
tes jeux 200 F + cable magneto 
100 F + PARSEC 200 F + MUNCH- 
MAN 200 F. +- Tl INVADERS 150 F 
+ OTHELLO 150 F. 
VENDS SHARP PC 1212 + Manuel 
650 E Tel (40) 90.18.94 



Vds pour TI99/4A Motor Rai- 
der + Car Wars + Football 
+ Munchman + Othello + 
Parsec + Tl Invaders + Tom- 
stone City + K7 Autoroute + 

2 K7 C et D de 99 mag. + B.E. 
+ livre n° 1 de prog. + int. 
pour Man. + man. Spectrevi- 
deo (2). : 1850 F. Materiel de 

3 mois. Mr DOLGOS Tel. : 
360.64.42 ou 361.28.37. et le 
Week End au (22) 37.92.00. 

Vds PC 1251 (12/83) ss gar. 
avec Manuel + A LA DECOU- 
VERTE DU 1251 PSI : 1290 F. 
Pascal BUISSYNE 18 rue des 
Roses 59680 FERRIERE LA 
GRANDE. Tel. : (27) 66.75.23. 

Vds TI99 + man. jeux + cord. 
Magneto + mod PARSEC et 
Invaders + revues : 2000 F. 
Vdsaussiext. 16KpourZX81 : 
300 F. Alexandre. 75017 PA- 
RIS. Tel. : 627.76.84. 

Vds interface PHS 60 Mr VER- 
BECOUE Tel. : 991.46.63 (ap. 
18 H). 

Vds CASIO FP10 (imp.) 84 + 
2 rlx + FA 2 5lnt.K7) 84 + ga- 
rantie + Nbrs prgs ; 700 F Vds 
57 LCD (09/83) ss gar. ; 180 F. 
Stephane BAUDET 5 rue des 
Vignes 774 70 TRILPORT Tel. : 
434.49.10. 

Vds TI99/4A + Int. SECAM + 
Cab. Magneto + Man. Jeux + 
STAR TREK + 2 Tomes Jeux et 
prgs pour TI99 + Manuals + 
K7 Basic par soi-m + prgs sur 
K7. Le tt 2200 ss gar, Eric 
BOUVIER Tel. : (91) 89.46.56. 
(ap. 18 H 30) 

Vds pour TI99/4A : GESTION 
FICHIER. TERMINAL EMULA- 
TOR. TRAITEMENT DE TEXTE, 
ALPINER. OTHELLO. CON- 
NECT FOUR, MIND CHALLEN- 
GER. WUMPUS, NUTRITION. 
PHYSICAL FITNESS, Cab. Ma- 
gneto + Man. Jeux + manuel 
mini mem.. Manuel Ass. Alain 
DUPUY Tel. : 525.34.18. 

Ch. Boitier ext. periph. + lect. 
Disk et cont. + Carte pour 
imp. et ext. Mem. Pour TI99/ 
4A. Alain DELER LA TAILLE 
85450 CHAILLE LES MARAIS. 
Tel. : (51) 56.72.49 



VENDS pour TI99/4A unite de dis- 
quette + boitier peripherique + 
extension 32 K. Materiel 12/83 
s'adresser a Monsier PERROUD 
Serge. Residence Saint Lanbert 
Bat L, Route de Cannes 83600 
FREJUS. Tel. : (94) 51 .00.23. pos- 
te 43.457 (la journee) et (94) 
53.30.39 (le soir), 

RECHERCHE pour Tl 99/4A mo- 
dule Basic Etendu -I- manuel et K7 
B.E. + mlntmemory avec manuel 
+ programmes jeux Basic et B.E. 
+ livres JEUX ET PROGRAMMES 
TOMME 1.2.3. Monsiour MEU- 
NIER. La Champagne Barret 
16300 BARBEZIEUX SAINT HILAI- 
RE. Tel. (45) 78.11.79. 



VENDS Tl 99/4A (9/80) + Char- 
geur + 40 carles magnetiques + 
manuels 4- livres + programmes 
(+ 100) + moduleRPN Simulateur. 
Vendu 750 F Monsieur VERTEN- 
TE, 8 rue des Marnaudes 93250 
VILLEMOMBLE. 

VENDS pour ZX 81 carte sonore 
AY38912 + K7 ; 250 F TOOLKIT 2 
K7 (MERGE ETRENUM);80F Mo- 
niteur HEX : 50 F. REMLOAD : 50 F 
Assernbleur ARTIC : 50 F + livre 
Francais langage machine :60F + 
livre Angtais Mastering your M/C : 
60 F Pour SPECTRUM Logilivre 
Othello/lsola : 80 F Simulateur 
Cobalt : 70 F Livre Hardware 
Manual : 50 F Petil livre du 
SPECTRUM : 50 F Monsieur 
LANGLOIS. Tel. 203 .41.28 poste 
322 ou 323. 

VENDSATARI : 2.600 F (2 mois) + 
2 poignees de jeux + une K7 sous 
garantie : 1.000 F Jean Pierre 
CHARMEAU, 402 rue Saint Hono- 
re 75001 PARIS. Tel. 296.25.79. 
VENDSHP41 :1.1O0FModule me- 
moire quadri : 450 F module hor- 
loge : 450 F lecteur de carles : 
1.500 F. Yves CHOSSON, 10 rue 
Saint Exupery 44800 SAINT HER- 
BLA!Nou4rueduMouzon54500 
LAXOU. Tel. (40) 43.16.15. 

VENDS ORIC 1 48K + 40program- 
mes de jeux + Livre "Visa pour 
ORIC- + livre "FORTH ET K7" + 
MICR'ORIC N° 3. Le tout avec ali- 
mentation et manuel d'utilisation 
pour 2100 F Tel. : (6)940.7891 

VENDS ORIC 1 16 Ko (7/83) + cor- 
don Peritel + alimentation + 20 
programmes environ: 1700 F 
Claude PEREZ chemin de la cha- 
pelle Saint Roch 84490 SAINTSA- 
TURNINDARTTel : (90) 754827 
(entre19et 21 H). 

VENDS TI99/4A (etat neuf) sous 
garantie + manetles + cordons 
K7 + 3 modules + Magneto K7 + 
K7 Basic par soi-meme + nom- 
breuses revues avec program- 
mes + manuel d'utilisation en 
francais + K7 avec programmes, 
(achete 3800 F) vendu . 2600 F 
Ludovlc SANCHIS. 18 rue Verdi 
FONTBARLETTE 26000 VALEN- 
CE. Tel. : (75) 55 9010. 

VENDS ZX 81 + 16 Ko + 3 livres (4/ 
83) 800 F Alain RICHET, 18 av. 
Marcel Cachin 69200 VENIS- 
SEUX Tel. : (7) 250.10.02. 

ACHETE INTERFACE FA 1 (pour 
FX 702 P) pour toute offre ecrire a 
Gerald BOUQUET impasse de la 
Joaterie 42160 ANDREZIEUX 
80UTHEON. Tel (77) 36.56.39. 

VENDS MULTITECH MPF II (ver- 
sion PAL.) prix 2 800 F avoc cas- 
settes joux f documentations + 
livres (on cadenu) P DREUMONT 
62 av. Leonard de Vinci 60100 
CREIL Tel (4) 424 40.17. 

VENDS ORIC 1 48K + cable PERI- 
TEL + alimentations + cable K7 + 
manuel Francaiy + livros i K7 Pro- 
grammes. Vondu 2.000 F. Lucien 
NICOLAI. Tol. (91) 67.30.96(le sa- 
medi et le dimanche). 



LASER ATTACK 



lis reviennent, les monstres intersideraux, pr*Ms a envahir 
notre chere plan6te, si vous faiblissez !... 
Avous donc.de register victorieusementauxvaguessuc- 
cessives d'envahisseurs, de plus en plus agressifs avec la 
vaillance dont vous ferez preuve. 

Laurent BERREBI 

Moded'emploi : 

Pour les possesseurs deSPECTRUM 16K, vous devez agir en deux fois : 

* Entrezleslignes 9000a 9990. puis faites executer (ou chargez surK7) 

* Entrez alors le reste du programme. 

Nous vous conseillons de sauverla lere partie sous le nom ■'ATTACK 1", 
et la seconde sous le nom de "ATTACK 2". 
Une fois les programmes sur K7, faites : 

- LOAD -ATTACK 1" puis PLAY 

- des le premier atfichage, arretez le magneto. 

- Attendre le message "appuyer sur -PLAY" pour charger la seconde 
partie. 

- Jouez !! 



>r 



= 303 REM ******! Pl^RTIE^»»^■^*i^ 
P&C3 REM *»*#**#MI3-E EM KEMOIRE 
DES CARACTERES GRhPhIOUES***-H»» 
?fl(?l CLS 
5305 PRINT AT , 10; "LASER HTTSCK 

5006 PRINT RT 5,0; "R5SEM8LRGE DE 
S CARACTERE3. " 

9O07 IF PEEK USR ' , q"=PT!-l 3331133 
3 THEN PRINT RT 7,13, OEJR FATT" 

GO TO 9CI9IS 

=■308 PRINT AT 7,10; "UN INSTANT " 

3C1C DATA BIN UOiMlBCO 

9011 DATA BIN e*SliSiMi?a 

D312 DATA BIN OllMllO 

3013 DATA BIN 01111110 

903.4 DATA BIN i^i'l^OlCO 

?315 DATA BIN 31111113 

■3316 DATA BIN 13333331 

9017 DATA BIN tfllllllo 

9313 FOR XbUSR "A" TO LISR "A"+7: 

READ X: POKE I , X : NEXT" I 

9320 DATA BIN 33111130 

3021 DATA BIN HOllOll 

00SS DATA BIN 11111111 

?023 DATA BIN 10100131 

9334 DATA BIN 10100101 

90SS DATA BIN 31111113 

302C DATA BIN 31330010 

9027 DATA BIN 30111133 

9328 FOR I=USR "B" TO USR "B"+7. 

READ X: POKE I , X : NEXT I 

3033 DATA BIN 33100100 

9031 DATA BIN 01111110 

5332 DATA BIN IBIOOICI 

3333 DATA BIN 31111113 

9334. DATA BIN 10033301 

9090 DATA BIN 01112113 

9336 DATA BIN 33133133 

-337 DATA BIN 81311310 

903S FOR I=USR "C" TO USR "C"+7: 

READ X: POKE I , X : NEXT I 

934-3 DATA BIN 33311333 

3341 DATA BIN 33111133 

934-2 DATA BIN 13133131 

934-3 DATA BIN 11111111 

00*4 DATA BIN 11111111 

334-5 DATA BIN 01100110 

9346 DATA BIN OUOOll© 

334-7 DATA BIN 33311333 

5346 FOR I=USR "D" TO USR "D"+7- 

READ X; POKE I,X; NEXT I 

9353 DATA BIN 33311303 

9351 DATA BIN 33111133 

3352 DATA BIN 33133133 

3353 DATA BIN 10111131 
3354- DATA BIN 11111111 
3355 DATA BIN 31111110 
9356 DATA BIN 3113CHO 

3357 DATA BIN 31333313 

3358 FOR I-USR "E" TO USR "E"+7- 
REAP X: POKE I,X; NEXT I 

9360 PRINT AT 7,10;" FINI 

9097 PRINT AT 10, 0; "ASSEMBLAGE D 

ES ROUTINES EN CM" 

9C9S IF PEEK USR "F"=33 THEN PRI 

NT AT 12,10; "DEJfl FPIT": GO TO 9 

330 

R? 9 .?. £S INT OT 12-10; "UN INSTANT" 

9100 REM scr vers drcite U 

9110 REM scr vers- gauche F 

3123 REM s-ci- de haul en bai N 

•314-0 LET W*="21314311334331S000E 

D4.3F4-7E011F001AEDB33EO3121323ED4. 

BF4 7E0D20ERC9" 

9150 LET 0* = "21F£4-F11FF4.F313303E 

D4.3F4-7E011F0O1AEDB33EO0121B28ED4. 

6F47E0D20EAC9" 

3163 LET Y* = "3E4-B31E307SF30577BS 

93SCB732B3C363 76F79D6S34-F7D3302D 

eoooFsotv ipooitdd oc irnp 03. 

3DA21 00403620363323 10FBC9O6BBC5C 




9130 LET dd=USR "F" 

9190 FOR i =1 TO LEN wt-1 STEP 2 
3200 LET b=16*CODE W* fi J -11S9 (CO 
DE W*(i) >B7J +CODE i«» (i +1J -7» (COD 

E MS (i +1) >57> -316 

■?213 POKE dd , b 

■-•^•Si> LET dd = dd +1 

3230 NEXT i 

3243 PRINT AT 12,13;" FINI 

3330 PRINT AT IS , ; "APPUYER SUR 

■■PLAY"" POUR CHARGER" 
9310 PRINT AT 16,3, "LA DEUXIEHE 
PARTIE, " 
3320 LOAD "" 
5993 5AUE "«tt»Cll" LINE 9033 



1 BORDER 3; PAPER 3: INK 2; C 

L5 : GO SUB 7333 

& LET h i =0 

3 REM *»RUTEUR L.BERREBIU 

4 REM '^SINCLAIR SPECTRUM 16K 

. S L &T doi =25: LET gun=3; LET 
!9v =30: LET rt =-1 

6 LET ddd=5OO0 

7 LET s.*e =13333 

^10 BORDER 3: PAPER 0: INK 6: C 

"ll PRINT AT 13, 27;"3" 

12 LET ee-1.5. LET £. c =0 

13 LET 55=8 

17 PRINT RT 19,0;"* ft" 

20 FOR i =3 TO 31: PRINT AT 16, 
i ; "™"; .- NEXT i 

21 LET rt=rt+l: » 
tySJ THEN LET r t =3 

23 BORDER rt: GO SUB 1003 

30 GO SUB 1233 

43 REM * dep 13 CeMent * 

53 PRINT AT 21, X ; " A " 

60 IF INKEV*="B" THEN LET ■ =1 

73 IF INKEY» = "6" THEN LET Ht=-1 

30 LET X=X+* 

35 LET »=0 

90 PRINT AT 21, x;" A " 

103 IF INKEY*="0" THEN GO SUB 1 



rt/3=INT lr 



400 

102 LET ell 
105 IF c* > 

o sue 5000 

110 IF TNKEYS="" THEN LET » =0 

120 IF X5=29 THEN LET x=x-l 

130 IF x-f=0 THEN LET x =x +1 

139 LET 9=9+ee 

143 IF g>=13 THEN LET 9=0: GO S 
UB 2003 

999 GO TO 60 

100O REM siMthjge de*. vaisseaux 



1010 FOR i 


=0 TO 13 STEP 










1015 BEEP 






1323 FOR i 


=0 TO 13 STEP 


















a© TO 16 STEP 




























1045 BEEP 




























1203 REM i 
























=1 TO 10; LET 


fc> C i > =1 ; 



SPECTRUM 



1213 LET X-15 

1220 LET vv=6: LET vh =13 

1233 LET W=3 

1240 LET h=-l 

!E'5H LET ■* = " (- 

1860 LET g =3 

1273 LET 3S.=£S*20 

12S3 LET t' f;H 

1285 IF do 1=25 AND s c > =33333 THE 
N LET five =23333. LET do i =3 

1233 let ee=ee+i.5 

1333 LET »4=13. LET "3=13. LET w 
2 = 10 

1303 LET d t =3 

1334 LET c*=0 
1310 LET ww=0 
1.333 DIM C *10,4I 

1343 FOR i =1 TO 13. FOR x =1 TO 4 

LET c f i ,x} =1- NEXT X : NEXT i 

1350 LET ff=-l; LET f*=14.; LET d 

r =1. LET d£=10 

1399 RETURN 

1400 REM * t L f s 
1410 LET PV=(21-VV3*B 
1415 LET a=X*3+12 

1423 FOR i =pv TO pv+6*3 STEP 3 
1433 IF POINT (3,i.«=l THEN LET c 
=i : GO TO 1453 
1*43 NEXT i 
1442 LET o=167 

1450 PLOT a,7. DRAW 3,o-3 PLOT 
a, 7; DRRU OUER l;3,C-3 
1463 PRINT AT 21 - (o /8 J , x + 1; ■■ " 
1461 IF o<> 167 THEN GO SL'B 3333 
1473 IF 00167 THEN BEEP .035,20 
: LET SC=K+SS: PRINT AT 1S,26;£ 
C. LET ff=ff+i: IF /py33=INT [ff 
~' THEN LET ee=eEtl-S 
IF ^c ,'=ddd THEN - 
PRINT AT 19,2*91.. 
oad=ddd+5we 
1475 IF C>{>167 AND f I :■ =43 THEN P 
RINT AT ai,x+l;" " : FOR i =0 TO 2 



1599 RETURN 

2333 rem act i on ner le scr 

2313 LET vh=vh+h 

2323 IF vh<=fr THEN LET »*="j"; 

FQR b=0 TO 7: RANDOHIZE USR USR 

"n": NEXT b: LET vv=W-M; LET h = 

b«-l; LET vh=vh+2 

2030 IF Vh)=fE THEN LET M*="f"; 

FOR b=0 TO 7: RANDOHIZE USR USR 

"U": NEXT b: LET vv=vv+l: LET h = 

h*-l: LET >-h=vh-2 

2036 IF W=16+f*w*2) THEN PRINT 

AT 10,7; FLASH 1; " THE INUAOERS 

HADE UIN '■ FOR i =0 TO 7; FOR 9 = 

TO 7: BEEP . 35 , i i2 , 5+ 13 : BORDE 

R 9: NEXT 9: NEXT i ; BORDER 3: G 

O TO 3333 

2040 RANDOMIZE USR USR in t 

2999 RETURN 

3333 REM * indexage # 

3310 LET j j =21- ic/8J 

3323 LET Xl=X+l 

3030 LET CO = ( j j-w) ^2 + 4 

304© LET ca= ixl-vh) ^-2+1 

3350 LET C(ca,COj=3 

3363 IF CD=4 THEN LET W4=w4-1 

3070 IF co=3 THEN LET t»3=»3-l 

3OB0 IF CO=2 THEN LET »*2=»2-l 

3Q9& IF i»4=0 THEN LET 1*4 = 13. LET 

31O0 IF *3=0 THEN LET *3=10: LET 

«l»=tf» + l 
3110 IF w£=0 THEN LET i»2=10: LET 

3115 IF'co=l THEN LET b ( c a ) =3 
3113 LET as=3 

3119 LET as-=3 

3120 IF co=l AND ta=dr THEN LET 
frmfr-a: LET dr=dr + l.- IF dr;=13 
AND bidr>=0 THEN LET fr=fr-S: LE 
T dr=dr+l: LET as=22: GO TO 3123 

3124 IF dr>13 THEN GO TQ 3126 

3125 IF dr<=10 AND >»sSa AND b (d 
r)=0 THEN LET fr=fr-S: LET dr=dr 
♦1: IF dr<=10 THEN GO TO 3125 
3123 LET as=0 

3129 IF ds--li=3 THEN GO TO 3131 
3133 IF co=l AND ca=ds THEN LET 
'S = fS+2: LET d£.=ds-l: IF ds>-l A 
MO bids' =0 THEN LET f£ = fi-+2.- LET 

ds=ds-l: LET at =22: GO TO 3130 
3131 IF ds- < =0 THEN GO TO 3136 

3135 IF d£>=l AND a £ =22 AND b fd! 
»=0 THEN LET fS- = fi-+2. LET dS =dS - 
1: IF ds>=l THEN GO TO 3135 

3136 LET a«-=0 
3150 RETURN 

5305 IF d I =66 THEN GO TO 5203 

5306 LET d I =66 

5310 LET rn=INT (RND* ( tdi + 1 J -d r i 
) *dr 

5023 IF birn)=3 THEM LET rn=rntl 
5330 IF rr> >ds THEN LET r n =d r 
5040 IF b(rn) =0 THEN GO TO 5320 
5350 LET tn=4 

ZQSS IF rn=ll THEN LET r n =10 

50S6 IF rn=3 THEN LET rn=i 
L-3S7 IF tn=3 THEN LET tn=l 

5060 IF cirn,inj=0 then let tn = t 



507B let nra2»rn+vh-a 
£?ee let ni=2Hntw-B 
5393 LET nlr=nr»3+3 

3103 LET nitfllfil-nl} »3 

5113 PLOT OVER l;nlr ,.->! t : DRflU O 

,-((16-W) *B.> . PLOT Ok'ER 1; nlf , n 

11 : DRAIJ OUER 1; 3. - ( (16-vvJ »8) 

5153 RETURN 

5200 PLOT OUER l;nlf,filt: DRRU 

, - ( (21-vvj *3) . PLOT OUER 1; nir ,n 

It: DRAU OUER 1, 0, - i [21-VV.l #9) 
5235 IF nr=x*i. THEN LET 9iT) =9un- 
1; PRINT AT 19 , 2 * (gun + 1 ) -4; " ": 
FOR z =0 TO 2: FOR i =3 TO 7: BORD 
ER i : NEXT i : NEXT z : BORDER r t 
5213 IF nr=X*l AND lun =3 THEN PR 
INT AT 10,7, FLASH 1 , " G A M E 
OUER " : FOR i =0 TO 7. FOR 9=3 

TO 7: BEEP . 05 , i »2, 5*10: BORDER 

a: NEXT g: NEXT i: BORDER 3: GO 

TO 3C33 
S253 LET dl=3: RETURN 
7330 REH ^PRESENTATION* 
7310 BORDER PAPER 3; INK 2: F 
LASH 1: CLS 
7323 FOR i =3 TO 31 STEP 2. PAINT 

AT 0,i ;"*■■, AT 21,i;"A" 
7330 NEXT i 
7040 FOR i =3 TO J.S STEP 4; PRINT 

AT i ,0; "&"; AT I ,31; '&" - NEXT i 
7350 LET b* = ' , A T T A C K ": LET 
3* = "L A S E R ". LET c* = "by L - BE 
RREBI" 

7363 FOR i =1 TO 13: PLOT 0,0: DR 
AU &©+.i»8,l£B. PLOT 0,0: DRAU OU 
EH 1; 63 + i 46, 126. BEEP ,033,20. P 
^INT AT S, 13 + i ; a* <i .1 ' NEXT i 
7373 FOR i=l TO 12: PLOT 3,3; DR 
AU 30 + i =6,38: PLOT C> .-0 . DRAU OWE 
R l;33*i 43,33. BFEP .W3,30: PRI 
rJT AT 13,9 + i ; b*(i.l : NEXT i 
7375 FOR i =1 TO 12; PLOT 0,3: DR 
AU (1743J +i 43,43: PLOT 3,0: DRAW 

OUER 1; (17*3) +i *3,43: BEEP ,336 
. 33: PRINT AT 16 , 17 + i , C * ( i ) : NEX 



7363 PRINT AT 21,3;' 

A- 1 AT 21,4; "A" 

7390 FOR i =3 TO ISO 

?130 FLASH 3 

''104 INK 6 

7113 FOR P =4 TO 11 

7115 FOR i =3 TO 31 

7123 PRINT RT O , i ; " 

7133 NEXT i 

7-135 NEXT O 

7136PRINT^AT1E^^, 

7143 PRINT AT 3,9; " 

7 14-5 PRINT AT 2,5, "I 



A", AT 21,2; 



LrtiER ATTACK 



"DES ENUAHISSE. 
"MISSION DE PE 



7-163 PRIM 



7-173 PRINT AT 

URS ONT POUR ■' 

7160 PRINT AT 

"RUIRE UOTRE'- 

7190 PRINT AT 3,3; "STATION SPATI 

ALE. UOUS 5EUL " 

7203 PRINT AT 9,0;"ARHE TOUT COM 

HE EUX D'UN SUPER" 

7210 PRINT AT 13,3, "LASER AUEZ R 

ECU L-ORORE DE LES" 

7233 PRINT AT 1 1 . 3, "ANEANTIR . AT 

TENTION LES PREMIERS" 

^ P 5JyX_ OT 12,07 "SONT GENTILS 



MAIS APRES . . 
7240 PRINT AT 14 , 0; "ARRIUE 

■_'■ , 13&&d,-2-5\\&$. UNE 

7253 PRINT AT 15,0; "FUSEE EN PLU 



503 



7263 PRINT AT 17,0 

A GAUCHE 
7373 PRINT AT 13,3 

A DROXTE 
7283 PRINT AT 19,3 



POUR ALLEZ 
POUR ALLEZ 
PC UA TIRER 



"PERDU avec 



7300 IF CODE INKEY*=13 THEN CL 

: GO TO 7320 

7313 GO TO 7300 

7999 RETURN 

330O FOR i =1 TO 153: NEXT i 

3313 CLS 

8023 PRINT AT 

sc; " points" 
3030 IF sohi THEN LET h i =s c .* PR 
INT AT 2,0; "bravo ,voui aver le m 
eilieur score."""voire no 

svp:";: INPUT "votre no»";c*: 
PRINT r*.- GO TO 3O60 
3340 PRINT AT 4 , 3; "*e i I L et> r icor 

e : ■■; hi 

3350 PRINT RT 5 , 3; " r | a t i *e par " 

autre partiefovn 

OR fc*="N" THEN ST 



altac*2- LINE 1 



8363 INPUT 
J "; ** 
3073 IF k* 



TORPILLE 



de l'op6ration). 

Bonne chance ! 

N.D.L.R./pouraccel6rerlejeuetdiminuerlescintillementderaffichage 

remplacer la ligne 200 par : 

400 PRT CRS ; " ..... n ;{J;M;CRSI;A$ ;CSR Q;DS ;CSR K;ES ; 



A bord de votre sous-marin, vous devez d6truire les navi- 
res qui se deplacent de droite a gauche ou a gauche & 
droite. Vous devez couler 10 navires dans une partie. 

Jean Louis DAUX 



Moded'emploi : 
Description de t'ecran : 

- La mer est representee par une serie de "-" 

- les navires : 2 taiiles "— " un croiseur 

"— " un porte avion, 
(le croiseur rapporte plus de points, a cause de sa petite taille) 

- Le pfiriscope est visualise par : "3" 
- "+" la lorpille 

- *•" symbolise I'impact. 

- le chiffre a droite de I'ecran, donne la distance en centaine de metre, 
qui separele sous-marin du navire (il y a un decomptelorsqu'une torpil- 
leesttiree). 

Commande au clavier ; (instruction introduce en Key) 

t ; deplace le periscope a gauche 

2 : deplace le periscope a droite 

N.B. : appuyer longtemps sur ces touches (le programme est un peu 

long). 

Apres avoir tlrer une torpille on peut aussitot deplacer le periscope 

pour le prochaln tir si celul-cl est rate. Attention certains navires sont 

plus rapldes que d'autres. II ne (aut surtout pas vlser directomont la 

cibie mais anticiper le tir. 

En fin de programme la machine vous donne votre score en nombrede 

navires coules et en points (selon la ditficulte du tir. et la vltesse de jeu 



FX 702 P 




« PBS LIST 


3B B=188iO=l!S=17i 


118 tl="S" 


CSR KlB 




if fi=2;P=2ee:U= 


128 GOTO R 


218 IF St="<"lZ=2U 


fflii 26 m. 1689 


l7:8»HL=-2i«l= 


' 138 Q=kiT=:iR=He 


:PRT CSR 3;'B0U 




"="16010 70 


118 K=R-1 : IF M=6; IF 


n!":M=»-"!60T0 


B: 7(6 STEPS 


« If B=lSft*="=="! 


6=i;0i="i'':dfil 


248 


i son id 


P=8B:G0T0 60 


T 28 


228 If MIMSOK 


4 " fiUTEUPi MUX 


58 «="=": P=I6B 


158 IF «=0!lf M="= 




H" 


68 L=fieS 1KT (R.fflll 


=";if E=MiM= 


23B NEXT 1 


5 " HIRE PRG:-TQ 


•13-iwmi 


VilKII 26 


248 V=V*P/CtRBS US 


npiae-" 


78 FOR 1=0 TO S ST 


160 It MiE«=M 


/2:M="-":T=0:il 


6 " POUR FX 782 t 


EP L 


176 If «=0iR=l8J:i= 


EXTU 


,!DEFK Bl" 


88 SMEMF S)='. 


B 


250 HHIT 35 


IB ilBII BiVfiC :i--\ 


"ilf I»1|M»V 


186 If 0f= r -":lf Hi 


26! If Z)1!V)="S" 


iPRT " TOR 


iBOTO 15B 


="==";lf 8=i»i: 


278 PRT 2;" HflVIRE" 


P1UE "IK«S 


96 IF X*="I";K=K-fi 


D$»"«» 


ii'ti" MULE"! VI 


:F0R tl=l TO IB 


OS L-1IIF UM 


198 IF !*="-"! If 0= 


i"SC0RE»"11HI « 


ze nan b:«=ikt (R 


=1 


i;m="=" 


1" FOINT";Vi:EK 


fflttii«|:B=i«T 


188 If ;.:t="3";l;=l,tfi 


206 PRT • 





(RRH|tH)ti:6=» 


ES L+1MF K>i r; 


"iditSR 




IB'IHI «SKtt3> 


Ml 


UfKlCSROlMl 


4t< VDR LIST 



DIVISION EUCLIDIENNE PC 1500 



Ceprogrammeexecuteavotreplaceladivisioneuclidien- 
ne de deux polynomes a coefficients entiers. positifs ou 
negatifs. Les coefficients du resteet du quotient sont don- 
nes sans erreur d'arrondi. II marche en memoire de base 
et I'imprimante n'est pas obligatoire : II suffit de changer 
les LPRINT en PRINT et de supprimer les COLOR. 
Enfin,lepolynomeUdesigneledividende;lepolynomeV 
ie diviseur. Done, le degre de U doit etre superieurou egal 
aceluideVSinon.uneerreurdedimensionseproduiraen 
ligne 50. 

Michel AGOU 



LES COEFFICIENTS 
DE U SONT, 

dp.ns l"or0re des 
puissances croiss- 
-ohtes.uu) 
u< z>- 1 



U( 4)=-2 
«J( 5>--3 

LES COEFFICIENTS 

OF U SONI, 

DONS L^ORDRE OES 

PUISSANCES CROISS- 

-ONTES.UCJ) 

U( 8)= 1 



POL V NODE 


u 


► IX" 8- 


2X« ]. 










POLYNQHE 




* ix" e* 




» 2* 7X~ 


3 


LE RESTE 


EST: 


•C 335' 313JX" 1 


785' 343)x* 14 


222/ 313 




LE QUOTIENT EST. 



n= 5 
n= 3 
les coefficients 

DE U SONT, 
DONS L"QRDRE OES 
PUISSP.NCES CROISS- 
-ONTES, UU 1 



U< 2)-- -3 
U< 3> = -5 
U< 3j=-5 



LES COEFFICIENTS 
DE U SONT, 
DONS L--CRDRE DES 
PUiSSONCES CR0I5S- 




J0.REM 0!^IS!ON 
DES °OL v NOnES 
Q COLFriClENTS 
E.M1 It85" 

30aP»iHr "OLGRE 
IDE U:t"":'.PRlMi 
"DEGRE D£ U:H" 

00: INPUT -%=' 
INPUT ' 



*5. '.PRINT 
'.PRINT 



1. 



LPRlMt •QONS L 

'QRDRE 0E5- 
j5:'_PRInT -PUISSfi 
NCE5 C«0!SS~O 
NfES, J(J)' 

40. ^OR J*0TQ N 
"5: COLOR 2 
58; INPUT *U(J)-~; 
LPRINT 



; J; 



J(JJ 



?«8 r o'? i^aro n 



■■.'-. - ■ 
a ■ - 

?B8.0<n n 



n ■ 



58:01" 

Q(tl-N) 
G8:'.PR1NT *LE5 CO 

f.FriCIENtS Dt 
U SONT, ". 

LPRINT "OONS L 

"ORORL OtS' 
6S:'.PR!NT -oulSSn 

NCES CR01S5--A 
I (ESj OC I ) 



155. WO IT 58 
!60. H RJNT -IOPE? 
SI UDUS H.QINF 
ENEZ": PRINT "l 
E COEFF'CJENT" 
PRINT -'ap£7. 
I, SlNON": INPUT 



370:nEXT l 



338. L 



BINt 



f*LN 



?0: FOR J 
75.E0LOR 2 
"1; INPUT ■ 



10 f 



Utl) 



.PftlN 



POLYNOHE U 

* 2*-5X" 3*-6X" 



LE RESTE EST: 

K IB' 2?)X~ 8+t- 

5/ 27>X" l + c 18' 

?>X« 2 

LE QUOTIENT EST: 



P.5- JO I ' *i8 
•38. PRINT "'OPE? 
II UOUS MOlNf 

f.NEF'^PRINI •". 

F. COEFFICIENT" 

;PRJNT "TOPE? 

N, SIMON": INPUT 



188: NEXT I 
125:C0L0R 8 
I30;lPRINI "lES CO 



)= 2 



165: IF i 



LPRINT 
I 85: COLOR 
I90ILPRINT ;-f 



»j."X**i I; next 

210:LPR!NT 

215: COLOR 

228:LPR!NJ 'OOLVNO 
flE U* 

225: COLOR ! 

238:for J--0fO H: 

LPRINT "-"lUCJ 
i; «X""; J; NEXT 



335: COLOR 8 
33?:0=U<N>"<n-N*l) 
348. LPRINT *lE RES 

TE ESI. ■ 
350: r OR I =010 N- 1 
355. COLOR I 



360:lPR1n 



]} 



*:U( 



320: SEX f i 

300:lPR!nT 
3B5:C0L0R 8 
330:LPRINT "LE C 

TIEnT EST:" 
■>88:FQR L-n-NrO ( 

STEP -1 
185: COLOR 1 
4I8:LPRINT ■•(*;£ 



SPACE INVADER 



Vous avez exactement nOsecondes pourdetruire un ser- 
vice a dessert de 33soucoupes (volantes bien entendu !). 
Au dessus de ce temps limite, une bombe (glacee, cela va 
de soi) descend aleatoirement. Vous devez alors la detrui- 
re avant qu'elle ne touche le sol. Les regies du jeu sont 
contenues dans le programme. 

Christian AUDEBERT 



INUWERS 



I 180 CLR 

1138 C=53708 

1288 TI»-"800« 

1210 GOSUB130B:REn 1 

1220 REn 

1238 REfl 

1218 G0SLJ8147B:REn UAISSEAU 

1 258 REn 

1260 RET1 

1278 GOSUB1560;REn GESTION JEU 

1280 REH 

1238 SEfl 

1388 U=534S2 

1310 R=0 



1348 REn 

135B F0RI=ITQ31 STEPS 

nee pokeu*i,i99 

1378 NEXT I 

1388 U=53532 

1398 F0RI=IT031 STEP3 

1480 POKEUtI, 199 

1410 NEXT] 

1428 U=53612 

1438 FORI=IT03l STEP3 

1443 POKEU-J, 193 

1450 NEXT I 

1468 RETURN 

1470 RErt 

1480 REn TRACE DU UAISSEflU 

1438 REn 

1SB0 T=S1228 
1518 P0KET.65 
1528 PRINT"S9SaBB09DB9ia<lllllll9B9 

79?0?07? 78787877 7B70702?" 
1530 PRINT" 78707870 707070? 

78787078- 
1518 PRINT" 75 76 75 76 

75 78' 
I358 RETURN 

1560 REn 

1570 REn GESTIDn DU JEU 
1580 REn 



I 1FS'30THENGOTO 74 I B 

' 1FS=68T»ENG0T0 2688 

' !FS=98TNENGDTD 2950 

I IFTI»--'0BB1 lB"THENfl=l 



1718 PRlNT , 'HrirtHHflHrtHH3HH3HHB83flBflaBTinE ■ 

'720 IFTI«-"9BBI IB-'TMEWn-l 
1730 IF! If'Seei i i"TMENfl=l 
1740 IFT!l«"»eB1 l2"THENrt-1 
1758 IFI1*-"8801 l-3-THEMfl»1 

1780 REfl 

1778 REH DF.PLncentNT UftlSSCAU 



780 REn 

730 GOTO I 688 

800 IFfl*="N'*THEN138B 

B10 IFA*="9"THENL=-1 

620 IFA«-"n"TMeNL-1 

838 P0KET.8 

848 I-TH. 

B58 P0K£T,65 

B68 G0T0I6BB 

870 REn 

880 REH GESTIDN TIR 

890 REn 

300 K-T-10 

918 POKE X,9B 

928 D=P££KCK-4BJ 

938 IFPEEKCK-48)=I33THEN2020 

910 IFK<5332BTHEN216B 

958 JFD=191ThEn3458 

960 1FDOBTHEN227B 

070 K=K-4B 

990 G0T0I31B 

990 REn 

2008 REH C1BLE INUftDER 

2B18 REn 

2028 U=T-48 

2030 POKEU.0 

2040 IFU=KTNEN2B78 

28S8 U-U-48 

2868 G0TD2B3B 

2070 POKE K-48,787 

7888 POKE K-4B.206 

2038 POKE K-40,0 

2188 R=R'1 

21 10 JFR'33TMEN223B 

2120 G0TOI6BB 

2138 REn 

2148 REH CIBIE PARASITE 

2158 REn 

2168 F=T-4B 

2178 POKEF,B 

2)80 IF F=KTM£Nl60e 

2198 F=F-48 

2288 GO 1 02 I 78 

2218 PRInT'DESOLE J', 

2220 PRINT 

2236 INPUT^DUEU^-TU FAIRE UnE I 

IE CO/n; ? ■■;«« 

2240 IFAt-'^OUI-THENI 170 
2258 IFflt-'O^TMENI 170 

2260 END 
2270 U-T-4B 
2280 P0KEU.8 
229B IFIJ>KTHEN2320 
2i88 U=U-48 
2318 G0TO22W 
2'J?0 POKEK-40,0 
2330 G0T02168 

2318 REn 

2350 REn OEPLflCEnENT INUAOERS 

2369 REM 

2370 REn 

2380 REn - 

2398 REn 1ER DEPLflCEnENT 

2400 REn - — 

2410 U-53153 

2420 1FPEEK(U)-133IMEN241B 

21 3B GOT 074 8B 



E PLUS FORI" 




244E 


POKE.CUJ.B 




2451 


POKECU-M i 


193 


24« 


U=U*3 




2471 


1FU> 53181 THEN2138 


2481 


GOTO2120 




2491 


U=53533 




25M 


IFPEEKtUJ 


-133THEN2523 


2511 


G0T02546 




252S 


P0KECU3.8 




2S3f 


POKE CUt I ] 


133 


254( 


U=Uf3 




25S< 


IFU>S3S64 


MEN2S70 


25« 


GOT 02500 




257C 


U=536I3 




258C 


IFPEEKCU) 


193THEN260B 


2S9C 


G0T0262B 




2oec 


POKECU),B 




2618 


P0KECU-.1 : 


133 


2828 


U-lJ-r3 




2636 


IFU=53646INENGOTO1600 


2640 
2650 
2600 
2078 
2680 


G0T02588 




REn 2EHE DEPLflCEnENT INUADERS 


U-534S4 




.2690 


TFPEEKCU] 


133THEN27IB 


2788 


GOTO2730 




2710 


POKEIUl.B 




2720 


POKECU.I ) 


133 


2730 


U=U'3 




2748 


IFU>53485TNEN2768 


2750 


G0T0269B 




2700 


U=53534 




2770 


IFPEEKCU J = 


I33THEN2790 


2780 


G0T02818 




2790 


POKECUJ.B 




2008 


POKECU.I), 


133 


2018 


U'U'3 




2828 


IFU>53S65TMEN2B4B 


2830 


GOT0277B 




2840 


11=53811 




2850 


IFPEEKCU)= 


I33THEN2B7B 


2360 


G0T0289B 




2070 


POKECU),B 




2B38 


"OKECU-n, 


193 


2890 


J=U*3 




2900 


IFU>S3616TMENGOTOI608 


2910 

2920 
2930 
2940 

2950 


GQT02350 




REn 3EnE DEPLflCEnENT INVADERS 


U-S9155 




2908 


IFPEEKCU)= 


3^TME^^Z^B0■ 


2970 


SOTO3000 




2988 


POKECUJ.O 




2990 


'0KEIU-2J, 


99 


3000 


J'U-3 




30 IB 


IFU>53ie6TMEN383a 


3870 


i0T0?3G0 




3030 


J-53S35 




3040 


IFPEEK(U)- 


93THEN3B60 


3850 


J0T03B8B 




3060 


'OKECUl.B 




3078 


'0KECU-2J, 


99 


illfil! 


U-U-3 




W.<;< 


FU> 535661 


'EN3I IB 


3180 


3OT03B18 




3110 


J-5361S 




3120 


rPEEKUil' 


93THEN3118 


3)30 


30T03I69 




3148 


j oxe(u),e 




3150 


•OKecu-aj, 


33 



3170 irU>53649TNE.il5S0 

3198 GOT0312B 

3138 REn— - 

3288 REn LA BOHBE TOHBC 
3210 REn 

3228 DR=INTC2JRN0tm*l 

3230 IF0R-lTMEND0=33 

3210 IFDR-2TnEN0D=1i 

3258 POKEC.0 

3268 C=CtDO 

3270 POKEC, 131 

3280 lFC)54i47TM£N3310 

3290 AA=0 

3388 GOTDI7I0 

3310 REn 

3320 REn nESSOGE 0£ PERTE 

3390 REn 

3348 PRINT-DOESOLE POUR TO] " 

3330 PRINT 

3360 PRINT'lL FPUORA EIRE PLUS RWIDE LA 
PROCMAINE FOIS" 
3370 PRINT 

3380 INPUT"UEUX-TU RETEhTER TA CHANCE CQ 
'N) ? "iR* 

3390 IFRt'^O-'TMENl 178 
3400 IFR**"OUr*TH£Nl 170 
3418 END 

3420 REn 

3130 REn nESSAGE fEl ICITATIONS 

3440 REn- 

J450 PRlNT'BBRflUO t TU L'AS EU CflnARAOE" 
348B PRINT 

3478 PfllNT-TU RECOnnENCES CO'N) *: 
3480 INPUTR4 
3490 GOT0333B 
3500 PRlNT'B- 

3SI0 PR1NT"90NJOUR UEUX TU OES EXPLICATI 
ONS" 

3520 GETRi:lFR*-""TMEN3528 
3538 IFR*-"O"TH£N3S50 
3S4B G0T0I178 
3550 PRINT 

3560 PRINT-CE JEU EST UN SPACE INUAOER" 
3570 PRINT 

3590 PRINT-TU POSSEOES UN UAISSEAU OU] S 
E TROUUE" 

3538 PRINT 'EN 8flS 0£ L'ECRflN" 
3600 PRINT 

3610 PRInT'CE UAISSEAU PEUT EIRE nANOEUU 
RE " 

3620 PRINT -VERS LA OROITE OU UERS Lfl GAU 
CHE" 

3038 PRINT"POUR (OLLER A GAUCHE APPUIE SU 
R LE B" 

3640 PRINT-POUR ALLER rt OROITE APPUIE SU 
R LE n' 

3858 PR1NT-ET ENF1N POUR PEGOnnER LES IN 
VflOERS" 

3680 PRINT UTILISE LA TOUCHE H" 
3670 PRINI 

3699 PRlNT'TU N'AS QUE 130 SECONtlt.':. t'OIIW 
nENER A" 
3890 PRINT-BIEN TA nlSSIDN. 1 ' 
3780 PRINT'PflSSE CE UELAI UNE BOnBE Vfl T 
OflSER ET" 

3710 PRINT"S1 TU NE Lfl OETRUIT PAS ELLE 
CASSERrt" 

3720 PRiNP'TOUT OUANU El.LE o«WlVERA AU S 
OL" 

3730 PRlNl'T CUnPRIS TC1I . " 
3740 PRINT 

3750 PRINT "P*«H UNl I OU >'>' " 

3700 GETA*-U"At-""lMENj;QO 

3/78 GOTOI l.'O ■ 



15 



AWALE 



Awale est un jeu traditionnel africain qui se joue a deux. 
Dans ce programme propose pour le TI99/4A on peut soit 
jouer a deux, ou bien jouer contre la machine. Les regies 
du jeu sont precisees dans le programme. 

Thierry LATOMBE 



BASIC 



T\ 



99/ ** 



i REM 
1370 I. I*M 

] 580 IF DEUX Turn 1 '60 
1390 IF JDUEUR=0 THEN 1760 
1400 IF MEM=0 THEN 1660 
1410 CALL LOADtADD,a,NIVEAU+T>INT< 
1170 FDR I=Q TO B 
1430 CALL I 0Ai>(ADD«8*r«I.O.CiI> ) 
1440 NEXT I 

1150 CALL LINK("DEPftRT") 
1160 CALL PEEMADD'A. I .J,K> 
1170 J-256-J+)' 
I480 CftLL HCHAR(24,T,32, 30> 



11 



200 D-12 




210 1*=79 




220 X-78 




230 CALL JDVSTIU. 


XBAS.MEM 


210 RANDOMIZE 




250 GOTO 300 




260 DIM CUD.CH 


ll), NOM« 







. PGP, PPP. H1.H2.G I. GS.DELIX. JOUEUR, 



NIVEAU, DC, FC. DA. ADD. F A, I I, LI, CO, 

280 CALL MCHAR :; CALL COLOR :: CALL SOUND :: CALL SCREEN : 

: CALL CLEAR it CALL KEY :i CALL CHAR it CALL INIT :: CALL 

LOAD :: CALL PEEK :i CALL LINK 

290 ■ aP- 

3O0 IF X8A5-0 THEN 340 

310 ON ERROR 310 :: CALL INIT :: MEM=-U : 

: ON ERROR STOP 

320 CALL LDAD(Bl96,254.24B."". 16376,68,69, 

90, 63, 82, 84, 234,63) 

330 ADD- -21576 

310 CALL CLEAR 

350 CALL 5CREEN!7) 

360 FOR I-U TO 9 

370 CALL COLORIl. 16, U) 

380 NEXT I 

390 CALL CHAR(128, ■■•■) 

100 CALL CHARU29,"00183C7E7E3C1B"> 

110 CALL C0L0RU3,T,8) 



500 
510 

320 



M«="REGL£ DU JEU ' 
GOSUB 3610 
CALL SOUND* 100,8B< 
CALL XEY(A, I, J) 
IF J-0 THEN 520 
IF I-X THEN 730 
IF ION THEN 520 
FOR J-0 TO A 
CALL CLEAR 



590 FDR 1=0 TO 



GOSUB 3610 

■ LI-LI-T 
NEXT I 

i LI -21 

CO-1 

M»-"SUITE EN PRESSANT UNE TDUCHE" 
i QOSUB 3610 

CALL SOUNDdOO. 8B0, 6) 
1 CALL KEY(A,K,L> 

■ IF L-0 THEN 690 
i NEXT J 

1 REM 
REM Dwmando qui SOI 

I REM 

• CALL CLEAR 
) DEUX-O 

> PRINT "VEUX TU JDUER CONTRE MO] ? 
1 CALL SDUND(100,140,T) 

) CALL KEY(A,I,J> 

> IF J-0 THEN 790 
l IF I-W THEN 840 

> IF IOX THEN 790 
I DEUX--U 

• INPUT "NOM JOUEUR 7 ":NOM»<0> 
N0M»(O)-SEG»(NOM»(0) ,U,D> 
IF DEUK THEN 970 
N0M«(U!-"TI99/1A" 
IF MEM=0 THEN lOOO 
NIVEAU-U 

PRINT I : jTAB(8) I ""I -DEBUTANT " : I 
-EXPERT": t : "NIVEAU CHOISI ?" 

CALL KEY(A,I,J> 
IF J-0 THEN 910 
IF 1-19 THEN 1000 
IF 1050 THEN 910 



960 GOTO 1000 
970 PRINT i i J I 

980 INfUT "NOH JOUEUR 7 " I 
990 NOHi (in -BEG* !NOM* (U) , I 
IOOO PRINT I 1 1 iNOM«(0)l 
1010 CALL SOUNDUOO,140,T1 
1020 CALL KEY(A,I,J> 
I030 IF I-M THEN 106C 
1040 IF IOX THEN IO20 
IOBO JOUEUR-U 
1060 CALL CLEAR 



860 
870 
880 
890 
900 



COMMENCE 7" 



i «: * . 



I REM 



IIOO Lf-U 

I HO M»»"AWALF.- 

I 120 50SUB 3640 

I 130 FOR J-0 TO 3 

1140 FOR I-D TO U 

1130 FOR K-O ID 5 

1160 CALL HCHARI6.' 

1170 NE X T V. 

1 1BO NEXT I 

1 1 90 CALL HCMAR ( I 3 

1200 NEXT J 

1210 FOR L-0 TO A 

1720 FOR 1-0 10 b 

1230 C!I)-C(I>»U 

, .'.in (,()' UK ■'11'" 

1290 "Ex i 1 

1Z60 NEXT L 

tv/i. • r,« I -ii 
IVWj M»-NOM» 

12*0 CO-U 

i ■■■•■ i i ■■. 2 II 

i ■;■■ HO. U 

i [20 i" ' ' i 

i o 9OT0 . "■■ 



,A«3«J. 120,4) 



10 11 



i 1=I/T 






IF J -.32768 1 
1S10 J-J-6S536 
1520 IF J*StU>-:24 THEN 1600 
1330 M»=_"JE VAIS GAGNER" 
1510 GOSUB 3640 
1550 FOR L=U TO 10 
1360 CALL S0UNDI60, 140,0) 
1570 CALL SOUND (40, 41000, 30) 
1 580 NEXT L 
1590 GDTD 1710 
16O0 IF J>T THEN 1640 
l6lO IF J>-T THEN 1710 
1620 M»="8lEN JOUE ! ' 
1630 GOTO 1540 
1640 M*="ATTENTION 
1650 GOTO 1540 
1660 M»-"A HON TOUR" 
1670 CALL HCHAR(21,T,32, 30) 
1680 CALL SOUNDdOO, 800.6) 

GOSUB 3640 



: :•■ ■-! 



i 38 1 



I710 CALL HCHAR(24,T,32,30> 

1720 M«-"JE JOUE ">,CHR*t76-l) 

1730 CALL SOUNDdOO. 10O, 6) 

I 740 GGSUB 3640 

1730 GOTO 2130 

1760 M»-NDM»(JOUEUR)V A TOI" 

1770 CALL HCHAR(24,T,32,30) 

1780 GOSUB 3640 

1790 CALL SOUND I 100,660, Tl 

IBOO CALL S0UND(200.880,U) 

1810 CALL KEYIA. I, J) 

1820 IF J=0 THEN 1810 

1B30 IF 1=64 THEN 2690 

1840 IF K65 THEN 1810 

1B50 IF I>7 THEN 1B10 

I860 CALL HCHAR(24,T,32,31) 

1B70 M*="JOUE: "&CHRXI) 



1890 I-I+JOUEURMB-T-H) 






1900 IF C(II>0 THEN J 980 




1910 M»="PAS DE GRAINES" 




1920 GOSUB 3640 




1930 CALL SDUND(130,222,4,760 


ICO 


1940 CALL S0UND(2O0,410,U,760 


lO) 


19SO CALL SDUND(130.200,A,900 




1960 GOTO 1370 




1970 REM 




1980 REM V**l ± dsL i on 




1990 REM 




2O0O iFNPlDOO THEN 2120 




2010 M*="PRIVE L'ADVERSAIPE DE GRAINS 


2020 GOSUB 3640 




2030 CALL S0UNDU5O, 130, A, 260 


5) 


2040 CALL SOUND(300,200 


T.40O 


4) 


2050 CALL 50UNDI230. 150 


4,300 


8) 


2060 CALL SOUNDdOO, 2O0 




10) 


2070 CALL S0UNDI200, 1 lO 


U.220 




2080 CALL SOUND! 15.0, 115 


A, 290 


5) 


2090 CALL SOUND ( 300, 300 


4,600 


B) 


2 1 00 GOTO 1330 




2110 REM 




2120 REM Semi «s g r- a i 




2130 REM 




2110 GOSUB 3610 




2130 CALL SOUNDdOO, 880.1) 




2160 L-C(Il 




2 1 70 M-I 




2180 C(I)-0 




2 1 90 GOSUB 3460 




2200 FOR N-U TO L 







22H 



I-I- 



-D»IN 



i '.to I 

I •'.', r-f (1 



— r._r <- I m 



2220 IF I-M THEN 2210 

2230 C(I>-C(I>*U 

2210 GOSUB 3160 

2250 NEXT N 

2260 REM 

2270 REM Racolts <g i— « 

22B0 REM 

2290 IF C(Il>A THEN 24B0 

2300 IF CIIXT THEN 2480 

2310 IF KDA THEN 2480 

2320 IF FA<I THEN 2190 

2330 CALL S0UND(-100, 440, A, 660, ] 

2310 S(JDU£UR)-S(JOUEUR>*C(I) 

2330 CALL SOUD (-130,330. 4, BOO, 8) 

2360 C(I)-0 

2370 CALL SOUND (-140O, 110, 8, B80, 

2380 GOSUB 3460 

2390 CALL SOUNDC 100. 660. A, 1320,1 

2400 CALL SOUND(2OO,BB0. T, 1760.1 

2410 LI-22-1BHJOUEUR 

2420 CO-LEN<NOH«(JOUEUR) >*A 

2430 M«-STR«(S 

2440 GOSUB 3641 

2430 I-1*B-D«II 

2460 GOTO 2290 

2470 REM 

24B0 REM JOI 

2490 REM 

230O IF S(JOUEUR!<24 THEN 7830 

2310 LI -24 

2320 CALL MCHAR 124, A. 37.291 

7330 IF DEUX THEN 2570 . 

2340 IF JOUEUR-0 THEN 2370 

2330 M»-"J'AI GAGNE" 

2360 GOTO 73G0 

2370 H«-"BRAVO "&NOMt (JOUEUR) 

23 BO 0OSU8 3640 

2590 FOR I-D TO A 

2600 CALL 80UND(30,11O.T, 880.1) 

2610 CALL S0UND(2O0,350.4, IIOO, 1 

2620 CALL SOUNDItSO, 440, U, BBO. IO 

2630 CALL S0UND(200.66O,T, 1320,4 

7640 CALL S0UND( 130. 440, A, BOO. 8) 

2630 CALL ROUND (100, 770. A, 1 340. 9 

7660 CALL BOUND ( ISO, 440, U, BOO, 4) 

2*70 CALL B0(>ND(?OO, 980, U, 1960, T 

3M0 NEXT I 

2690 M»-"OUUI.r/ VflUD REJOUER '.'- 

|7O0 If DIUK THEN 2720 

2710 M«-"VEUX TU RTJOUER 7* 

2720 CM i MCH*K(24, 1 . 12. 30) 

■ -,, r.n'.iin -.(,1'i 

1740 I "i i iiiKi, 1. Ji 

1780 II l-X "ILN ISO" 

, //.,. 11 l-w (HI n .'/.v 



i v*»nt 



.'7,. FDR 1-0 I 



1820 GOTO 730 



?!3 50 


JOUEUR-U- JOUEUR 




28S0 






2B60 


REM 




2870 


Dt>6» JOUEUR 




2BB0 


EC-6'(J0UEUR»U)-U 




2B90 


DA--=6-'U-J0UFURl 




290O 


FA-o» IT- JOUEUR )-U 

2910 FOR l-OC TO FC 

292" NP<l)«Ctl> 

2930 NEXT I 

2940 I°DA 

pfSO IF CIII ' THEN 1370 

I'/t.i' l*I+U 

2970 IF l «FA THEN 2930 




25) i 


2980 FOR i=ur Tn fc 

" CIII "0 IHEN *190 

-.■..... |r F^l Ctl)+1 IMF 1 ■ ■-■ 






3010 IF C(DA) *C(DA-U)-C(DA*I 


►C(DA+AJ 




-C(DA.1J *C(DA*5> '0 THEN 3190 






5O20 MP di=0 






1030 BOTO 3190 






3040 L-IMTll/B) 




3200 


IF NP(DC)*NP(DC*U)*NPlDC»r>*N1 


'(DC*A)»N 


S21C 


REM 




322C 


REM I mpor.-i i t> 1 o j 




3230 


REM 




3240 


Ll-21 





ETENDU 



■ ■ 


,.,,,. j ., 


■ .,. . 


-0-D»lNT ■ 


-.,-.. 


F .) DA THEN •!"■■ 


:■■■ - 


i FA J 'mfd 5190 






-[.;.., 


*► MJ 




T 1 FA THEN 


■ I 20 


[- C(K>*1 m rHEN S190 El SE 




-DA 


SI40 


F L r fHI N •!■■ ■■ 
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F 1 .J IHEN 1190 


-■ l El" 


1R(I)*0 


SI 90 NEXT I 


<DC->1 


«NfMDC*S> IHEN 1 70 



3320 
3330 
3310 

3350 
3360 



34O0 
31 IO 
3420 

3440 
3430 
3160 
3470 

31B0 



3S20 
3330 
3510 
3550 
3360 

3580 
3590 
3600 
36 1 
3620 
3630 
3640 



IF DEUK THEN 3290 

IF JOUFUR=0 THEN 3290 

M»=-JE NE PEUX PLUS JOUER" 

GOTO 3310 

M»"-LA SITUATION EST BLOOUEE" 

CALL HCHBR(21, X.'Z. :.l : 

GOSUB 3640 

CALL SDUND(40OO, 10000,30) 

FOR 1=0 TO U 

FOR J=0 TO 5 

S(I)-S(I)*C(6»I'J) 

NEXT J 

NEXT I 

CALL SOUNDIU. 40000,30) 

CALL HCHAR(24,T, 32,30) 

IF S(JOUEUR) >S(U'JOUEUR)THEN 2? 

JOUEUR=U-JOUEUR 

IF S (JOUEUR) OS(U-JOUEUR) THEN : 

M»="MATCH NUL" 



REM «^-F -f- i <zM^g« 

REM 

REM I -Cage 

REM 

IF CIIJOO THEN 3550 

FDR J—5 TO 

CALL HCHAR(20-9*INTtt/. 

NEXT J 

RETURN 

CALL SDUND(50,-T,4) 

IF C(l) .24 THEN 36O0 



3730 

3740 
3750 



CALL HCHAR(20-9»INT(I/6)-ll 

RETURN 

M«=STR»(C(I) ) 

LI-20-9#INT(I/6) 

C0"T*3-(5.5-ABS(I-5.3l ) 

REM 

REM £*■* * ± at-ttr- M* 
• REM 

i REM LI-Ltgn* 
i REM CO-CoIonne 
i REM 

I IF C0>0 THEN 3710 
i C0=,5K2B-LEN(M«) ) 
i IF XBAS THEN 3770 
) FOR II-U TO LEN(M*> 

CALL HCHAR(LI,CD*T.II,ASC<! 






,A*5«(5.5-ABS(I-5.5) i M -1«INT 



NEX 



II 



7820 
3B30 
3840 
3B30 
3860 
3B70 
3880 
3B90 
3900 
39 1 
3920 
3930 
3940 



39 BO 
3990 

4000 



1050 
1060 
4070 
4080 
4090 



C0=O 

RETURN 

DISPLAY AT!L!.C0)5IZEI-MAX 

CO-0 

RETURN 

REM 

REM Coup T J «?*? 

REM 

01 — 100 

GS- 1 00 

I = -U 



H EN(M*).U)):M« 



CH(L)-C(l 
[XT L 



SH-0 

J -HI 

FOR L-U TO CH(H1) 

J«J+U-D«INT! (J*U)/D) 

IF J-Hl THEN 3940 

CH(J»-CHIJ)+U 

NEXT L 

IF 3<J THEN 4050 

IF CH(J) >A THEN 103O 

IF CHIJXT THEN 4030 

GH=SH*CH<J> 

CH(J)-0 

J-J-«B-D»INT( <J*BI /D) 

GOTO 39B0 

CH(Hl)-0 

IF CH(O)'CHIU) tCH(T)*CH(l 

POP— 20 

PPP-0 

FOR H2-0 TO 5 

IF CH(H2>-0 THEN 4260 




«CH(3)-D THEN 



I IF K<6 THEN 4210 

i IF CH(K)*J>T THEN 4210 

> IF CH(K)*J-0 THEN 4210 
i P-P*CH(K)+J*U 

> K-K*B-D»INT( (K»B)/D) 
i GOTO 4130 

i IF P<-PGP THEN 4240 

1 PCP-P 

) BOTO 4260 



•-PPP ■ 



I 4260 



NEXT H2 

IF 9H-PGRCGI THEN 4380 

IF 5H-POP>GI THEN 4340 

IF SH+S(U)>24 TI*N 4140 

IF <SM-MSH>«(S(Q>-B(U>> >l 

IF SH-PPP<OB THEN 43BO 

IF SH-PPP>GS THEN 4340 

IF RND>.3 THEN 4300 

III -SM- POP 

OS-SH-FTP 

MSH-5H 



LE3.JnilElJR8 ONT CHACUN UN CAMP.-DE 6 CAHE8, OU ! 



120 '*P- 



AINE9 PAR CA8E...LE BUT E3T OE RrCDLlFR AU.MOINR 24 DEB 
TOUR,.,,POUR CELA BEMCI LES 0RAINEI1, PR IflEil DANS UNC DEB 



4130 DATA AU DEPART 1 I 

IB GRAINES EN 

1110 DATA -JDUANT IOUR I 

CARES DE 

H-.o DATA "VOIRE CAMP, .1 RAl'iUN [)■ UfH " . URAINC roR CA'il IN 1 1H»;NNT , DANS I i: GIINh 

CON IRA I RE DE9. AIGUILLES D'UNE MONTRE.. 

1460 DATA ,M UN I 'A'i DANS VOIRG CAH.Dfl DFPART...SI LA DCRNIIM QUA INC rSI.SE 

Ml I \ir.u-. iini i ivi r,0VI RBI 

4470 DATA OUI C0NIFNA1T I OU 2 DRAINI 

i i M nii; rbt 

1100 DATA DANS IF CAMP WHIM F T .CIJNl CNA I T I OU 2 GRAlt 

NE LAIIHI JAMAI8 LE CAMP. ADVITIf.F DFMUNI DL GRAINEH. 

4190 DATA "A VOTW rOUR, rRESnF7 1 "..A- CA!1F A. B- CASE 8.C- CAfll C, D- CASE D,E- C 

i | ,r ■ CAOF F,*- ABANDON.. 

■I-..", ii ibasbO tm " ■!'■ 10 

(Mil un i i I'UI ■>-.. " I I HUN Ti'.i I -I DAD" 
«B20 i WJ 



LES RECOLTEZ El AIORS.OI 1A CARE PRE 

i.vniiii i i ■■ m i mi n / i n. 
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lUI J0V8TI 



I-NOT .) i i BUM ND 



CAMBRIOLAGE 



Le casse du sifecle en direct sur votre ZX 81 (16 K) ! Loca- 
lisez la salle des coffres dans un labyrinthe. en evitant les 
pieges meurtriers, puis determinez la combinaison du 
coffre. 




15 NEXT A 

4-S PRI NT AT S. ll;"^^^^*"'^ 

50 PRINT AT 7, 12; "I |" 

I? PRINT RT 21,10; "SG&B. :"; V; 

SS LET R=INT <RND*10i?l 

p0 print at 13,0;" trouuer 
;: son cope pour ■•,-■ oliurzr 

^ POfiTE... ^HB9H" 

~8 INPUT B 

70 IF B = A THEN GOTO 130 

7£m n? F B * A THE M PRIMT RT 21,22 



?S IF B<R THEN PRINT RT 2i,20J 



30 

9d 


LtT X=X + i 




91 


NEXT C 






'CO 








lia 


LM-H »■ — ■■ t l-»»^t*^H| 


















139 




247 


PRINT RT 13, 0; •' 


ENTREZ 


ISO 












165 












E'ftlT: "; A; 






173 


SCROLL 



Lionel ANGE 



174. PRINT RT S.O, "IJGLI 
NE UIE MAIS LR 
-INUE. 

175 SCROLL 

176 SCROLL 

173 FOR 1=1 TO SO 

ISO NEXT I 

167 LET UbU-1 

135 IF U = THEN GOTO 

i9o ooto 6 

19S REM B^U— 

200 PRINT RT 

ana for r=o - 

218 PRINT RT 




A,0; "B";«T A, 31; "^ 



a&a next r 

235 FOR fi^O T 
230 PRIMT RT 



; AT 17, R; "R 



£33 NEXT A 

23S FOR 3=0 TO 31 

2AO PRINT RT 13,3, "B". RT 
5 ;AT 20,t?, ■'■■■, RT 21,B;"B" 

■fS NEXT B 

23© PRIN T RT 3 1, 

27ci REi', BBHB1BBS 

230 LET PiPEEK 1339b t£56»PEEK _, 

235 LET A =3*33+1 

290 LET 8=INT iRND*300.'+l 

295 IF PEEK (P + B) ?0 THEN GOTO S 



THEN GOTO Z 

_.. GOTO : 

337 REM BaVHBBal^SaHBBlBalVBBl 
34-0 POKE P+A,12 

34-5 LET S=fl+ (INKEV*--3"i - CINKETi 
i="5"J + (XNKEY**>"B"J *33- tlNKEYfM' 

7") 433 
350 POKE P+R 
355 IF PEEK 



3J = THEN LET Fi" 

IF A = B OR fl=R OR A=S THEN O 

A=D OR A=E OR A=F 



OTb 030 
335 IF A = C OR 
THEN GOTO *SO 
iOO GOTO 34-C 
4-4-0 REI — 



4-50 LET U=U-1 

4-55 PRINT RT 21 , IS; «. 

500 PRIMT RT " 



ZX81 



505 FOR 1=1 

SIC NEXT I 

51S PRINT RT IB, 



513 IF U=0 THEN GOTO 

520 GOTO 300 

S30 REM | 

500 CL5 

om^print rt e,+; ■■ uoue nuez 

6«6 PRINT RT 1O,0;"LE . _ 
E l/QTHe VOL EST OE. '-.'RT 
3; " FRRNC (S3 " 

607 IF BB < BlflBH THEN PRINT RT 

■1,1}; 




BIB PRINT RT 19 
-"^EJOUER (O/N) , . . 

611 FOR 1=1 TO 

'213 NEXT I 

; 15 SCROLL 

613 SCROLL 

6 1-7 SCROLL 

&20 INPUT A* 

330 IF fl|="N" T 

635 IF H*="0" T 

0*0 GOTO SP« 

:45 REM r 

650 CLS 



30 FOR A<fl rO £3 

35 PRINT RT 5,fi;"£I*',AT 15,fl; 



c-70 NEXT A 

375 FOR A =6 T 

630 PRINT RT 

:■■:-■ 3 i-iext r 

690 print rt 2,6; "ej5rlle . des . co 

FFRCaH" 

'.-95 FOR A =5 TO 9 

70O PRINT RT ft,aj"B"ifrT R,BOi"tS 

70S NEXT R 

710 FOR R = ll T-n i =: 

755 PRINT RT 

730 NEXT A 

735 FOR R=3 T 

74.0 PRINT RT 

74-5 NEXT fi 

75Q PRINT RT 

^Efe";«T li, o; 

' 7 55 PRINT RT 

760 PRINT RT 

735 PRINT RT 



"B";RT 3, A; 



B.fl;"H"jflT R,S3;"f! 



-■is mm s-3s 



R=10 






LR PORTE PLI 



730 PRINT RT 10,0; 

735 PRINT RT 18, O; 
NOEE 3""EST REFERME 
. . -SUR UOUS 

736 FOR 1 = 1 TO 60 

737 NEXT I 

733 PRINT RT IS,©; 



790 PRINT RT 13,0; "TAOWEZ LE e 
ON CODE POUR OUURIR "J" LR GRILL 
E ■ UOUS AVEZ 1 CHANCE" 

791 FOR 1=1 TO 30 
732 NEXT I 

70S PRINT RT 18,0;" 

335 PRINT RT 13, 0; " QUEL EST LE 

CODE ? <(1,3)>" 

34.0 PRINT RT 21 , IP; "I Bai " : U 

34-1 LET U = INT t'RND*3>+l 



LET H=2 
INPUT 

55S ?E 2 = H THEN GOT o so© 

"* THEN GOTO 97» 



^S IF _ . 

tO GOTO 34-5 

7*0 LET U=U-1 

THEM GOTO 600 



330 PRINT RT 21 

■?90 GOTO 34-S 

391 REH 

900 FOR _ 

■?S3 PRINT RT 1,3, " 

PIP NEXT I 

920 PRINT RT 10, H, ' 

.-r? PRINT RT lO.H,' 

926 IF 3MKEV*="3" 1 

940 PRINT RT 20,0; * 

ViS IF H> =16 THEN G 



PRIhiT RT lO ..H; 



FOR 



TO IS 



9,H. 



953 PRINT RT 

; RT 9,H; -'H' - 

■^59 NEXT 

960 RE!1 3 

990 LET M = IKT IRMO-* 

330 INPUT RS 

1000 IF R»= 

1010 IF R*=" 

LOIS IF R*=" 

L02O IF R»="_ 

LOJ? GOTO 1OO0 

L030 IF H<5 THEM LET ^Ei ^flB-t 10c 

I035 IF M>^=5 RND M<1D THEN LET q 
B=RB-iI00O" 

= 10 RNO IHlS THEN LET 



THEN GOTO 1030 

THEN GOTO 1O70 

THEM GOTO HUP 

THEM GOTO IIOO 



= 15 THEN LET R3=HS-H00 



9B:R3+10 
104-5 IF : 

1O50 PRINT RT 9,13;"1" 

i.&55- GOSUB 1175 

J.^&O GOTO 3 

iC-70 IF M<5 THEN LET RB=R3 + 100O 

1^75 IF H>=5 RND H-tlfl THEN LET P 

B =00+100 

1030 IF H>=10 RND M<15 THEN LET 

P3=RB+10000 

1035 IF Mj-15 THEM LET RB=R0*1O 

10O7 PRINT RT 9.16;"2" 

1090 GOSUO 117S 

■.i?-?5 GOTO 3 

) 100 IF H<5 THEN LET RB=RB>10 

1105 IF H>=5 RND MUU THEN LET R 

■:■ -Re + 10000 

1110 IF Mj=10 RND MilS THEN LET 

fli=RB+100 

HIS IF M5=1S THEN LET RB=RB + 100 

1117 PRINT RT 9,16; "3" 
112Q GOSUB 117S 
1125 GOTO 6 

1130 IF M<5 THEN LET R3=RB+lO0eO 
■<10 THEN LET R 



= 5 RND 

RND M<15 THEN LET 



113S IF . 
B=AB+10 
114-0 IF M> = 
R3=RB+1O0O 
114-5 IF M>=1S THEN LET RB=RB«10O 
114-7 PRINT RT 9,16, ■■■*-■■ 
1150 GOSUB 1175 
1155 GOTO 3 

i^TS PRINT RT 18,0, "UOTRE TOTAL 
'■; AT 19, 0; " 

11SO PRINT M Rf 9^16?" '"' 
1185 PRINT RT lO.H; 



£";AT lO, H 

1190 IF INKEY»="3" THEN LET Ma 

1195 PRINT AT 20,20; "AURNCEZ. , 

1200 IF H>=30 THEN RETURN 

1250 GOTO 1185 

1290 CLERR 

130O SRUE •■■" 

1350 RUN 



CONCOURS "GEORGES LECLERE" 



Le programme de Georges LE- 
CLERE dans sa conception ac- 
tuelle, contient cinq parties difte- 
re rites, qui sont toutes axees sur 
la manipulation de lettres de I'al- 
phabet par rintermediaire du cla- 
vier de I'ordinateur. 
Les deux premiersjeux sont iden- 
tiques (seu! I'adversaire change : 
ordinateur ou autre joueur) et 
constituent une ebauche de Po- 
ker, ou les cartessontremplacees 
par les lettres de I'alphabet. Cha- 
que joueur. a tour de role, appuie 
sur une lettre qui agira comme le 
levier d'un JACK POT : la touche 
utilisee genere une lettre sur 
I'ecran qui va se ranger dans le 
camp du joueur. 
C'est done un jeu de hasard. ou 



I'objectif (non defini dans le pro- 
gramme) serait d'obtenir le plus 
rapidement possible, une seriede 
5 lettres rangees par ordre alpha- 
betique (c'est un exemple). 
La troisieme partie est une de- 
monstration automatique ou 
"TIC" (le premier joueur) joue ses 
lettres dans I'ordre alphabetique 
et "TOC" (le deuxieme joueur) 
joue d'une facon aleatoire. 
La quatrieme partie est un jeu 
destine a Tapprentissage de I'al- 
phabet. Dans la version actuelle 
du programme, le jeu est concu 
pour 1 joueur qui joue contre I'or- 
dinateur. Chacun des deux 
joueurs possede un camp consti- 
tue d'une ligne contenant les let- 
tres de I'alphabet et d'une ligne 



ALPHABET 
JOUEUR 1 
CAMP 
JOUEUR 1 
CAMP 
JOUEUR 1 



ABCOEFGHJJKL MNOPQR 5 T UVW X V 2 



JOUEUR 2 

Dli ECRAN DE JEU 



ABCDEFGHIJKLrtNOPQRSTUVWXYZ 



ALPHABET 



ABCDEFGM»JKLMNOPORSTUVWXVZ 



JOUEUR 1 

CAMP 

JOUEUR 1 

CAMP 

JDUEUR 2 

ALPHABET 

JOUEUR 2 

L'OROINATEUR JOUE (D),ET DEMANDE I 



ABC EFGHIJKLMNOPOftSTtJVWXVZ 



initialement vierge qui contiendra 
les reponses correctes pour cha- 
que joueur (cf D1). 
L'ordinateur commence la partie 
en generant une lettre qui vient se 
placer dans son camp. II fait en- 
suite clignoter une des lettres du 
joueur qui doit alors appuyer sur 
la touche correspondante du cla- 
vier. Si la reponse du joueur est 
correcte, la lettre est rangee dans 
le camp du joueur. Si la reponse 
est incorrecte, la lettre reste a sa 
place et I'ordinateur reprend la 
main. 

La cinquieme partie est identique 
a la quatrieme, mais avec utilisa- 
tion des manettes de jeu. 
Le programme de Georges LE- 
CLERE est en fait une ebauche du 



jeu de lettre. 

L'objectifduconcoursestdereali- 
ser un programme complet (de- 
monstration automatique, interet 
du jeu, etc..) axe sur les lettres et/ 
ou les caracteres speciaux (!, :, 
etc.). La manipulation du clavier 
etant la base de ce type dejeu, un 
jeu ou un systeme permettant 
Tapprentissage du clavier devra 
etre inclus dans le programme. 
Comme vouspouvezleconstater, 
le plus dur reste a faire. 



ABCDEFGH JKLMNDPORS-I 
JOUEUR 1 

CAMP 

I 

JOUEUR 1 

CAMP 

,..D 

JOUEUR 2 
ALPHABET 
JOUEUR 2 
REPONSE CORRECTE DU JOUEUR 1 



ABC EFGH1JKLMN0P0RSTUVWXVZ 



ALPHABET 

JOUEUR 1 
CAMP 
JOUEUR ] 
CAMP 

JOUEUR 2 
ALPHABET 
JOUEUR 2 



ABCDEFGHUKLMNOPORS-UVWXVZ 



ABCDEFGH I JKLMNOPQRSTUVWX' 



REPONBB INCORRECTE (EXiW) DU JOUEUR 
17 



REGLEMENT 

Article 1 

HEBDOGICIEL organise un con- 
cours du 22 Mars au 2 Mai dote de 
prix recompensant le meilleur lo- 
giciel s'inspirant d'une idee de 
Georges LECLEREetdontlenom 
est "POKER- ALPHABET". 
Article 2 

Ce concours est ouvert a tout au- 
teurdelogicielquelquesoitle ma- 
teriel sur lequel il est realise. Len- 
voi d'un logiciel sur K7 ou disquet- 
teaccompagnedubonde partici- 
pation "Concours Georges 
LECLERE" decoupe dans Theb- 
domadaire constitue I'acte de 
candidature. 
Article 3 

La redaction d'HEBDOGICIEL se 
reserve le droit de selectionner 
sur la base de la quallte et de la fi- 
delity au theme propose (POKER 
ALPHABET) les logiciels qui se- 
ront commercialises. 
Article 4 

Un jury compose de specialistes 
de la distribution de produits in- 
foimatiques et de pedagogues. 
preside par Georges LECLERE 
determinera le meilleur logiciel 



pour chaque ordinateur et, parmi 
ces meilleurs logiciels, un ga- 
gnant toute categorie. 
Article 5 

La cloture du concours se (era le 2 
Mai 1984 a minuit. le cachet de la 
poste faisant foi. 
Article 6 

Les prix alloues seront remis au 
plus tard 1 mois apres I'annonce 
des resuitats. 
Article 7 

Le present reglement aete depo- 
se chez Maitre JAUNATRE, 1 rue 
des Halles 75001 PARIS 
Article 8 

Le prix principal etant un contrat 
d'edition engageant HEBDOGI- 
CIEL et SHIFT EDITIONS a com- 
mercialiser les logiciels gagnants. 
les laureats s'engagent de leur 
cote a donner la preference a 
SHIFT EDITIONS pourcette com- 
mercialisation, et ce, pour tout 
pays. 
Article 9 

La participation au concours en- 
traine I'acceptation par les con- 
currents du present reglement. 



BON DE PARTICIPATION 
CONCOURS Georges LECLERE 



Nom : 
Prenom : 
Age: 

Profession : 
Adresse : 

N° Telephone : 

Nom du materiel utilise ; 

Nom propose pour le programme : 

Declare avoir pris connalssance du reglement du concours "Georges 

LECLERE" publie dans HEBDOGICIEL et en accepte le reglement. 

Signature obligatolre : 

(signature des parents pour les minours) 

Le programme doit etre expedie sur support magnetique (cassette ou 
disquette) accompagne d'un mode d'empioi tres detaille. Les pro- 
jrammes non retenus ne sont pas rendus. 
Indiquez "concours Georges LECLERE" sur I'enveloppe. 



BUDGET FAMILIAL 



* 



suite du 
listing du 
N28 



4130 PPIHT'TTOMiECRRT PRR RRPPOPT RUX PREVISIONS 

4i53 mm'wnmmnisnt&mwECfKTfmn&BEPfiis 

4168 PPIHT">M»M»HM»»MtDU M0I3IMEE3UT RNNEEM 
4163 TBT=6 

4165 FOR H-I-TO LM 

4166 FM*(n:■■'LEFT*<M*<M)■>■ ,, "•3> 
4176 PRIHT"WMI"FM*CM>. "IMF. 

4175 $RCM>-RMCn>-RD<M;j-VM<M> 
4188 SPCM>=PP<M>-PDCM>-DV 
4185 X*SR<M>-SPU1i TDT=TDT+X 
4193 GOSUB 13e9e'PRIHTX«;'> M Tj 

4192 X=TDT'GOSUB 13903 PPIHTX* 

4193 NEXT M 

4194 PRIHT"WMMMMM»Mti;r=C0Pv-3=suiTE 
4193 GET P*IF R*="S" GOTO 4350 

4196 IF RJO"C" GOTO 4193 

4197 GOSUB 12900=OOTO415e 

4283 REM**ECRRT POUR UN MOIS DONNE** 

4218 PRINT"n«ECRRT PAR RAPPORT RUX PREVISIONS 

4228 INPUT"1P0UR LE MOIS DE ■ ,R* 

4230 FOP M=l TO 12 

4248 IF M*<M)=RJ GOTO 4298 

4259 HEXT M 

4260 PRINT" (WON COMPRIS 

4270 FPINT"OEHTPEZ VOIRE MOIS EH TOUTES LETTRES 

4230 GOTO 4228 

4298 IF RM<M>=0 OR VM<M)=8 OR RD<M>=0 GOTO 4308 

4295 GOTO 4328 

4380 PRINT'TTtEHTPEZ D'flBORD TOUS LES REELS 

4318 FOR RT = 1 TO 2008 ■ NEXT ■ GOTO 4050 

4320 PRINT "3M»ECRRT PfiR RRPPORT RUX PREVISIONS 

4325 PPINT'-ilMMMMMOIS DEir'iMJCflJ 

4330 PRINT"l>MMWMM»PREVUWip»FEEL«MMiECflRT 

4335 PRINT "SRECETTES 

4340 FOP 1=1 TO 5 

4345 PPINTLEFTf'PJ<I>.12>; 

4350 X=RPa,M>. GOSUB 13008 ■ PRINTX*; " '; 

4355 X=RR<I,IU=GOSUB 13808=FRINTXJ, " 

4360 X=PP<I.M>-P"PM .'ll V GOSUB "{3000' 

4365 PRIHTXJ 

4370 HEXT I 

4375 PRWaDEPENSES 

4380 FOR 1 = 1 TO 19 

4385 PRIHTLEFT*i'D*':l).12;; 

4398 X=DPCI.M>. GOSUB ' : 33e* PPIHTX*-" "; 

4395 X=DR<I,H> GOSUB 13688=PRIHTXJ; " '•; 

4406 X=DP<I.M>-DRa,M> GOSUB 13808 

4418 PRIHTXJ 

4420 HEXT I 

4438 PRINT" BBEP-VflRM 9"; 

4435 X=DV=GOSUB 13808= PRINTXf ; " " ; 

4449 X=VH(MJ^GOSUE 13903PRINTXJ, " 
4445 X=DV-VM(M> =GOSUB 13080 

4450 PRINTX* 

4455 FRIHT"»MISOLDE "; 

4468 SP(M)=PP(M>-PD(M)-DV 

4465 SR(M>=RM<M>-PIKM>-VM<M) 

4470 X=SP<M)=GOSUB 13908 ■ PRINTX*; " "; 

4475 X=3R(M>=G0SUB 13030= PRIHTX*; " "; 

4488 X=SR(M>-SPCM) 3G3UE 13090 PRIHTX* 

4438 PRIMT"*mMMO»MMi]7;=CaPV-S=SUITE9", 

4503 GET P*=IF P*="S" GOTO 4850 

4510 IF R*0"C" GOTO 4500 

4520 GOSUB 12833 =GOTO4320 

5008 REM ***********#•«*#*##**#* 

5005 REM «« ** 

5818 REM ** SRUVEORPDE SUR X? *» 

5013 REM »* ** 

5820 REM *****#*************■#**# 

=■030 PPIHT "THWPREPfiREZ VOTRE MAGNETOPHONE POUR " 

5831 PRINT "ft. 'ENREGISTREMEHT 

3332 PRINT-MIES QUE VOUS ETE3 PPET TRPEZ P 

5933 PPINT"MSI VOUS PREFEPEZ REVENIR RU MENU TRPEZ H 

5840 GET R*=IF RJ="" GOTO 5840 

5841 IF R*="M" GOTO 158 

5842 IF P*0"P" GOTO 5048 

5063 OPEN 2,1. INGESTION BUDOET M +AN* 

5678 POR 11=1 TO 12 

5338 FOR 1-1 TO 15 

5090 printh2,dp<i,m:> 

5095 ppint«2,drci*i1> 

5100 NEXT I 

5118 FOR 1=1 TO 5 

5120 PRINT#2,RP<I.M> 

5125 PPIHT»2.RR<I,M> 

5138 HEXTI 

5148 FOR 1-1 TO 18 

5130 PRIMTH2,DV(I,M> 

5160 HEXTI 

5178 PRINTS, PD<M> 

5171 PRINTt2,PRC«) 

5172 PRINTII2,RD<rl) 

5173 PRINT#2,RWM> 

5174 PRINT»2-VTKM> 
5130 PPIHT«2,SP(H) 
3131 PPINT»2.SR(M> 
5132 PPIHT»2,EPCPn 
51S3 PRINT»2,ER'!M) 
5134 PRIHT»2.PFCM> 
3198 PRIHT»2,RF<M> 
3191 PPINT*2,FP(M> 

5192 PRIHT»2«FPCn> 

5193 PRINT*2, rtS'.H) 
3288 HEXTM 

5213 FOR 1 = 1 TO 15 = PPIHT»2,D*a; = NEXTI 
5238 FOR I=1T0 5=PRIHT*2.PJ< I > HEXTI 
5240 FOP I = ! TO 18 PPIHT>t2-DVJ^I>=HEXTI 
5230 PPIHT#2.PTK8> 
3251 PPINTH2.PRO) 
3232 PPINT«2,DV 
3253 PRINT»2,IN 
5254 PPIHTi2,PP 
5260 CLOSE 2SK-1 

5278 ppinT-raniPPPuvEP sur stop" 

5230 PRIHT-MXPUIS SUR SHIFT" 

5330 WRIT 653, 1 

5408 GOTO 158 

6800 REM ****♦*****•♦*****»•• 

6985 PEM •* •• 

6010 REM ** LECTURE SUR ¥.7 *# 

6915 PEM ** ♦* 

6828 REM *<*•*•* »*»*** *•*»*** 

6322 IF K7=8 GOTO 6038 

6823 PPIHT-TMBFICHIER DEJR LU- VOUS EFFRCEZ 

voemmij ichiffpes en memoipe- 

6024 PPINT-JOSI VOUS DESIPEZ LIRE LE FICHIER 

.UME BJOUVELLE FOIS," 

6825 PRIMT"«SORTEZ DU PROGRAMME ET FAITES PUN" 

6026 FOP P.T-1 TO13880 NEXT 

6027 GOTO 136 

6838 PPINTTHWKPPUVEZ SUR DE3 QUE VOTRE 

6031 PRIHT"BWAOHET0PHOHE EST PPET 

6032 PPINT"MSI VOUS PREFEPEZ REVENIR RU MEHU TRPEZ M 
6040 GET R*=IF R«-"" GOTO 6640 

6043 IF R*--M"GOTO 136 





6059 IF P*O"O"GOTO6040 

6960 OPEN 2. 1 .0.'T,r:.Tir„i FjijDGET"*AMJ 

6078 FOP M=l TO 12 

6696 FOP 1=1 TO 15 

6030 INPUT»2.DP'I .M» 

6335 IHPIJT»2,DP(I,M> 

6183 HEXTI 
6110 FOR 1=1 TO 5 
6120 IHPUT#2.PP<I.M-- 
6125 INPUTt2,RR< I-Ml 
6133 NEXT! 
6148 FOR 1=1 TO 10 
6150 IHPUTtt2.DV<I.M> 
6160 NEXT I 
6178 INPUT#2.PD(M> 

6171 IHFUTU2,PP'Ni 

6172 INPUM2/RDCH) 

6173 IHPUT#2.RM(M) 

6174 IHFUT*2.VM<M> 

6180 IHPUT*2,SP<M) 

6181 INPUT#2.SR<I1> 

6132 INPUT»2,EP<H) 

6133 IHPUT#2.ER(M> 

6184 IHPUT»2.PFCM> 

6190 IHPUT4t2,RFfM> 

6191 IHPUT»2,FR':Mi 
6132 IHPUT«2.FP(M) 
6193 IHPUT»2,n*CM> 
6288 NEXTM 

6210 FOR 1=1 TO 15= INPUT»2.D*^I' HEXTI 
6239 FOR I = 1TQ 5 INPUTX2,R*a> = HEXTI 
6248 FOR 1 = 1 TO 16- IMPUTK2, DV*f I> = NEXT I 
6253 INRUT#2.PD(6) 

6251 INPUT»2,PR(8) 

6252 IHPUT#2,DV 

6253 INPUT«2.IN 

6254 IHPUT»2-PR 
6263 CLOSE 2=K7=1 

6278 PRIHT-nCtRPPUVEP SUR STOP" 

6230 PRIHT"H*FUIS SUR SHIFT" 

6390 WRIT 653,1 

6403 GOTO 153 

7088 PEM ******#«******«***•**«♦**»#*** 

7802 REM ** «* " 

7835 REM M ENTREE DES REELS DU MOIS #* 

7686 PEM t* ** 

7097 REM **t*#***#*******t**t ; t**++***t# 

7819 IF IH=1 GOTO 7328 

7315 PRIHT-nCVOUS DEVEZ D'RBORD IHITIRLISER 

OU LIRE H.E PICHIER Y.I" 

7816 FOR 1=1 TO 4083 HEXT; GOTO 150 

7020 PRINT » no«»H VOULEZ-VOUS : " 

7038 PRINT 11 )!] EHTRER DES DEPEHSES VflRIRBLES <1> 

7858 PRIHT"M EHTRER DES DEP EHSES FIXES C2) 

7378 PRIHT"B ENTREP DES RECETTES <3V 

7035 PRINT 11 )) REVENIR RU MENU PRINCIPAL <A> 

7890 PR1NT-3M LE8 N0WEUE8 DEPEMSE8 VflRIRBLES ■ 

7335 PRINT-B 36'flJOUTEHT RUX PRECEDENTES 

7188 PPINT'^JHB LES DEFENSES FIXES ET RECETTES FIXES" 

7105 PRIHT-M WHHULLEHT LES PRECEDENTES" 

7110 PRINT "MUM EHTREZ VOTRE CHOIX " 

7128 GET RS=IF R$="l" GOTO1300 

7130 IF R*="2" GOTO 7280 

7148 IF PJ="3" GOTO 7738 

7153 IF R*="4" GOTO 139 

7168 GOTO 7123 

7200 REM #*******♦*********•#*****«**# 

7202 REM * * 

7203 REM # ENTREE DES DEFENSES FIXES * 

7204 REM * * 
7233 REM #***«****♦*•#*******♦*******» 
7210 PRINT'TMDE QUEL MOIS" 

7215 INPUT R* 

7220 FOR M=l TO 12 

7230 IF R*-M*(M) GOTO 7260 

7248 HEXTM 

7250 PRINT "JHOH COMPRIS" 

7255 PRIHT M KEHTREZ VOTRE MOIS EN TOUTES LETTRES" 

7238 GOTO 7215 

7260 PRIHT'TWDEPEHSES REELLES DU MOIS DE ";M*<M) ; "M" 

7265 RD<M>=0 

7278 FOR 1=1 TO 15 

7230 PRINTDtCIJ; 

7298 INPUT DRCI/M) 

7293 RD<:M)=RD(M>+DRa,M> 

7380 HEXTI 

7310 PRIHT-JJ.'fiLlDEZ-VOijS <0/H>?" 

7320 GET P$=IF RJ="H" GOTO 7260 

7340 IF PSO"0" GOTO 7320 

7358 PRINT" WTOTfiL DU MOIS =".RD<MJ 

7368 PRINT"HRPPUVER SUP SHIFT POUR COHTIHUER" 

7373 WRIT 653,1 =GOTO7089 

7789 REM *************************** 

7701 REM * * 

7702 REM * ENTREE RECETTES REELLES * 
7783 REM J ^ * 

'7784 PEM ***#»**♦**»**»»+#***»*»***# 
7705 PRIHT"n«I10IS DE" 
7710 INPUT R* 
7728 FOR M=l TO 12 
7730 IF R*=M*<:M> GOTO 7760 
7748 HEXTM 

7758 PRINT"»IOH COMPRIS" 

7755 PRINT"«ENTPEZ VOTRE MOIS EH TOUTES LETTRES" 
7733 GOTO 7710 

7768 PRIHT-rKRECETTES REELLES DU MOIS DE ";M*U1>;"W" 
7765 RM<M5=0 
7778 FOR 1=1 TO 5 
7733 PRINTRKI); 

7790 INPUT PRCI,M> 

7735 RMi:M> = RMCMJ+RR(l.M) 

7890 HEXTI 

7818 PRINT"«VfiLIDEZ-VOUS CO^NJ?" 

7328 GET R*=IF RJ="H" GOTO 7763 

7840 IF R*O"0" GOTO 7320 

7358 PRIHT"«TOTflL DU MOIS ";RM<M) 

7368 PRIHT"WPPUVER SUP SHIFT PGUP COHTINUEP" 

7373 WRIT 653,1 =G0T0783e 

3488 REM #* RECP.F PREV. RHHEE »• 

3435 PRIHT'TM PREVISIONS DE L'FtNMEE »" 

3410 PPIHT 1 ' MOIS PECET, DEPEHSES SOLDE SOLDE 

3420 PPIHT"r>»M»M»M»M»M»rOTflLESM MOIS IBE8. RH 

3422 TR-0=TD=0=TS=0 

8425 FOP M»l TO 12 

8438 FM*fM>=" "+M*(M>*" " 

3435 FM*<M> = RIGHT*':FMI<M),10> 

3440 PRINTFM*(M); 

8445 X-PR(M):TR=TP+X GOSUB 13308 PRIHTX*, 

3450 X=PD(M)*DV:TD=TD+X=GOSUB 13083=PPIHTX*; 

8455 X«PR<M)-PD';M)-DV 

3466 TS=TS*X OOSUB 13883=PRIHTX*; 

8463 X=TS 

3465 GOSUB 13883 PRINTX* 

8478 NEXT II 

3475 PPIHT"!) TOTAL *i 

3488 X-TR GOSUB 13888 = PRIHTX*; 

9485 X-TD=GOSUB 13000 : PPIHTX*, 

8495 X=TS=G03UB 13000 PPIHTX* 

8496 PRINT" JM»M»MMM»»»iaC=C0PY-3-SUITE 

8497 GET R*-IF R*«"C"THEN GOSUB 12889=0010 3400 
8493 IF P*<>"3" GOTO 8497 

3499 GOTO 1300 

9380 PEI1 MWWWIHI I WIMWWWW M 
9005 REM •» *• 

9010 REM ** MODIFICRTIOH PREVISIONS *• 
9015 REM •* *• 

9028 REM — — wmwWWM MWWW W 
9838 IF PR-1 GOTO 9670 



CO^A^AODORE 



64 



3040 PRIHT-^CHIMF-OSSIJlE. LES PREVISIONS ME SOHT PftS " 

9045 PRinT"H«EHTREES" 

3353 FOP RT =1 TO 2030 HEXT 

9060 GOTO 158 

9978 PRIirrrWiODIFICfiTIOH DEHflMDEE " 

9030 PRIHT 1 'BMPECETTE CR)" 

3999 PPIHT" UCDEFEN3E Fl>:E £D>" 

9995 PPIHT"ilflRHHEE (R>" 

9188 GET P* IF R*="" GOTO 9103 

9135 IF P*=' 1 D" GOTO 9149 

3119 IF P*= 11 R" GOTO 3783 

3128 IF R*="P" GOTO 9483 

9138 GOTO 9193 

9143 PPINT-nKflDE C'UEL MOIS *'" 

9145 INPUT R* 

3153 FOP 1=1 TO 12 

9163 IF PI=M*fI> GOTO 9198 

9173 HEXTI 

9138 PPIHT "BUHON COMPRIS" 

9190 PPINT"K(ENTPEZ VOIRE MOIS EN TOUTES LETTRES 

9195 GOTO 9145 

3138 PD(0>-PB(0>-PD<I; 

3290 PRIHT'TTCDEPENSES PPEVUESW" 

3210 FOR J=l TO 15 

3215 X=DP'.J.I> GOSUE 13009 

9216 IF J<19 GOTO 3225 

3220 PRINT.; ;0*(-O;XS = GOTO 3230 

3225 PRINT" ■;j;M<J>;X»:GOT0 9230 

9230 NEXT J 

9246 IHPUT"»WMERO DE LR DEFENSE H MODIFIER", J 

9245 IF J>15 GOTO 9248 

3238 PD<I)=PDCI)-DP':J,n 

3255 IHPUT")1M0NTRHT DE LR NOUVELLE DEFENSE ".DP'J.lJ 

3268 PDa)=PDa> + DP<;.I) 

3313 PDC0J=PD(6>+PD':i) 

3323 DV=INT<(PR<0)-PD(0)>X12> 

3330 GOTO 150 

9469 PEM »*#* MR! RECETTES ***• 

q 4 48 RPIHT-^Hfll'E QUEL MOIS ?" 

9445 INPUT R* 

9450 FOR 1*1 TO 12 

9468 IF R*»M*a) GOTO 9438 

9476 NEXT I 

9433 PRINT" MO IOH COMPRIS" 

3490 PRINT'JBCHTREZ VOTRE MOIS EN TnrjTES LETTRES 

3495 GOTO 9445 

9433 PR(3>=PP(3>-PR<:iJ 

3530 PRINT ■3K E C E TTES PPEVUES" 

3510 FOP J=l TO 5 

9515 X=PPa.I>OOSUB 13899 

3320 PRIHTJ;R*U>;X* 

3539 NEXTJ 

9548 IHPUT"»IUMERO DE LR PECETTE ft MODIFIER".; 

3545 IF J>5 GOTO 3540 

3553 pRtiJ=ppa>-Rpc;,n 

3555 INPUT "MHQHTRHT DE LR NOUVELLE RECETTE ,, ,RP<J, I ) 

9563 PR(I)=PRCI)+RP<J,I> 

9618 PRf8i=PRC8>+PRai 

9628 DV=IHT'(PR<9)-PDf8))/12> 

3638 GOTO 156 

9780 PFIHT'TTOffmEHTION CETTE MODIFICRTIOH DOIT EIRE 

EXCEPT I OHNELLE" 

3713 FRINT-KBRNHEE ENTREE EH MEMOIRE= ";PNf 

9720 INPUT "OTJOUVELLE RHHEE " ; RH* 

3730 IF LENCRN*K>2 THEN PPIHT"K«EHTPEZ DEUX CHIFFRES UHIOUEHENT" = 

GOTO 9728 

9750 GOTO 150 

11080 REM *******«.»*** 

11002 REM «* ** 

11804 PEM •« SORTIE •* 

11805 REM »* *» 

11386 rem mnmnw 

11007 PRIHT"n 

11810 IF SK=1 GOTO 11100 

11028 PR!NT"aKdWaRTTEHT10H» VOUS N'RVEZ PBS SRUVEGRRDE V0SBD0NHEE3 

11188 PRiHT"MraoncaminvouLEZ vous= 

11118 PRIHT"HSORTIR DU PROGRRMME <S> 

11128 PRIHT"»REVEHIR RU MEHU CM) 

11133 PRIHT"HWiHSEHTREZ VOTRE REP0N3E 

11148 GET R*=IF R*="M" GOTO 150 

11150 IF RtO"S" GOTO 11148 

11160 PRIHT"MBRU PEVOIR"=END 

12088 PEM *****•*****•*•****• 

12802 REM ** •• 

12885 REM *• COPIE D'ECRRH ** 

12887 REM *» ** 

12318 REM *«♦+♦**♦»»*«•***•#* 

12011 IF 01=1 G0T012915 

12012 PRIHT'TPPS D'IMPPIMfiNTE" 
12913 FOR RT=1 TO 3090HEXT RT 
12814 RETURN 

12315 0PEH4.4CMD4 
12818 FOR 1=0 TO 24 
12020 FOP J=0 TO 39 
12030 R=C1824+40«I+J) 

12035 B=PEEX<fl) 

12036 IF B>123 THEN B=B-123 
12837 IF BC31 THEN B=B*64 
12848 PPIHTCHR*<B); 

12059 HEXT J 

12060 PRINT 
12879 HEXTI 

12080 PRINT«4=CL0SE4 

12039 RETURN 

12538 REM rrOTWJX MENSUELS DES DEP-FIX* 

12501 FOR LM=1 TO 12 

12582 IF RD(LM>=0 G0T012589 

12593 NEXT LM 

12563 LM-LM-1 

12510 PPIHT"^M»HrTOTRL DES DEPEHSES FIXES 

12511 PPINT"M DEPEHSES TOTAL DEPUIS MOVENNE 
12312 PRINT" DEBUT RNHEE ■ 

12513 PRINT 

12514 TDT=3 

12515 FOR 1*1 TO 15 
12520 PRINTDJd), 
12525 X»0 

12330 FOR M=l TO 12 

12333 XoX>DRa,MJ=2Z*X/LM = G0SUB 13006 

12340 HEXT M 

12545 PRIHTXJ, 

12550 TDT-TDT+X 

12552 X=2Z GOSUB 13088PRIHTX* 

12555 HEXTI 

12568 PRIHT"O»n0TRLIMI 

12365 X=TDT G03UE 13939 PRINTX* 

12576 PRIHT-nsOIT UNE MOVENNE"; 

12573 PRINT" SUR" ;Ln, "MOIS DE". 

12388 X=TDT/LM GOSUB 13099 

12585 PRIHTX* 

12390 PPIMT"IMM1 K-C0PV-3-SUITE«"; 

12595 GETR* IF R*-"C"THEN OOSUB 12600=0010 12309 

12396 IF R*0"S" GOTO 12395 

12337 GOTO 2636 

13000 X-INT(X) XJ«STR*CX> 

13616 XJ-" *+X* 

13028 X*-RI0HT*(X*.7) 

13030 RETURH 

14069 X-IHT(X) =X*-STRJ<X) 

14010 X*=" "*X* 

14826 X*»PIGHTJfX*,3) 

14030 RETURH 

22300 REM •TOTP.UX MEHSUELS DES RECETTES* 

22381 FOR LM-1 TO 12 

22302 IF RM(LM.-0 00T022309 

22363 HEXT LM 
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PAYE 




Le programme PAYE va vous permettre d'etablir rapide- 
ment une'fiche de paie, ou bien encore de verifier la votre 
(pourquoi pas !). 

Jean-Baptiste VACHETTE 

Ce programme fonctionnesur CANON X07, muni d'un cable magneto- 
phone XC 910 et d'un magnetophone. 

Unefoisle programme enregistre,faireun"FSET"superieura 613. el fat- 
re "RUN", si un fichier n'a pas ete auparavant mis dans les memoires 
RAM de I'appareil celui-ci dira "PAS DE FICHIER" et alors se presentera 
2cas. 

1 - Lecture de donnees emmagasinees sur cassette (L) 

2 - Fabrication d'un fichier (A) 
V Cas LECTURE sur CASSETTE 

Appuyer sur la touche "LT.le CANON vous demanded'avancerlaK7jus- 
qu'a I'endroit ou les donnees debut et d'appuyer sur (RETURN). 
Une fois la touche "RETURN" enfoncee le CANON vous demandesi 
vous etes pret, appuyer sur la touche PLAY du magnetophone et taper 



"O", des cet instant le CANON lis sur la cassette les donnees dont il a 
besoln, une fois la lecture finie le CANON vous le dira 
2 f "" B Cas FABRICATION d'UN FICHIER 

Appuyer sur la touche "A", le CANON vous demande alors le nom de la 
personne que vous voulez entrer dans le fichier, Une fois le nom entre 
appuyer sur "RETURN", la demande duPrenom precede la demande du 
NOM, ensuite se sera au tour de I'adresse et du salaire de base. 
Lorsque la demande "SITUATION" apparait, il faut. si la personne est un 
CADRE ou un OUVRIER. le preciser. 

C'est-a-dire que si le calcul de la paye correspond a un des 2 modes de 
calcul decrit sur la feuille ! ii faut ecrire "CADRE" ou "OUVRIER". 
Si la personne n'est pas un cadre la mention ouvrier peut etre omise et 
Ton peut ecrire tout autre chose a la place. 

Si la personne est CADRE.il faut I'ecriresoit en minuscule soit en majus- 
cule. Une fois ces operations terminees. le CANON va au debut du 
programme et pose 3 solutions. 
LORS de la MISE en RO UT E du CANON 

Si un fichier est existant dans le CANON ou que ce fichier vient d'etre lu 
ou fabrique, I'appareil pose 3 solutions. 

(1) Ajout.precedemmentdecrite.mais alors ilfaudra appuyer sur "T'et 
non sur "A" qui n'aura aucun effet. 

(2) Lecture qui sera decrite plus tard. 

(3) FIN. Apres une pression sur "3" le CANON pose de nouveau 3 solu- 
tions, I'une. changement (C) permettra de changer le salaire de base 
d'une personne quelconque dans le fichier. 

La troisieme solution "ENREGISTREMENT" (E) permettra d'enregistrer 
le fichier present dans le CANON sur une cassette, apres la pression sur 
"E" le CANON prendra le meme procede que pour lire les donnees. 



:-oto30O:nextz:cls 



380 PRinr*cno«»q»' tusiMa-i 



20 CLS 

30 LOCATES, OIPRINT"* PAYES •" 

31 LOCATEl,l;PHINT--AJoul t I J • : L0CAIE1 , 

32 I-0CATE1,3"P«INT--Flr> f 3) • «CHRB I 1 1 I 

33 Za-INKEY«: IFZ*""*TMEN30 

34 IFZf»""l*TH£NG0SUB100O 

33 IFi«-'3'THENSOT030aO 

34 IFZa-'2*TMENG0TO3» 



' CLSILOCATtO, l: INPUT'I 
I F( 

:ac-i 

72 IFACt MTHEN6000 

ENOorozooo 

00:NEXT2:CLS 

BO PRlNTA*tO,BI :PRINTA«(1,8I :printa«<2 

aa forz-otosoo:nextz:cls 

90 C-VAHAai3,Bll 

100 LOCATEO.ltlNPUT'Jour an ulm "tJO 

130 CLSILOCATE O.l'INPUT'Prlx Jour tl-Ai 
1*0 CL6JL0CATE Q,l:INPUT-Nbra ]puf!P»n 
130 cls:locate 4, li PRINT* Mutual la-iLOd 

1*0 X»-tNKEY»: IFXB--0- T MENU- 127. 7: GOTO 



LY»«"THEN390ELSECLS 

'Total ft ratanuaai'JPRINTUSI 

l-|P|:PRINT' Fr.-.CHRaill) 



IFINKEYB---THEN430EI.SECL! 



470.PRINT'Tolal in 

4B0 IFINKETt- 



ORAa<4,BJ""CADRE"TH 
NTA»(4,B1 :FORZ-OT03 



THEN482ELSECLS 



'•--■THEN320ELSECL! 



AC-O:G0TDZO 
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i:LOCATE □. 1 : INPUT-Acoapl 



310 IFINKEY«-"THEN3I0EL6ECLS 
320 PRINTJOr *]our« M «olm-:f 

a-aaaa.aa-j JTi :print* Fr-«* 

330 PRINTDl-Jour «Op H— n t-'lW 

340 IFINKEYa--*THEN340ELSECLS 



2004 FORZ-OT0300:MEKTZ:CLS 

2003 LOCATE 0, 1: INPUT-Pr 1»»: ■ |PR 

2013 CLBILOCATE O, i: INPUT-Nbr* jour:p«n 

2020 cls:locate 4,0:PRINT-Hutuai i»-:loc 
ATE l,l:PRINT*tO] oui/tNlnan- 



2033 CLSILOCATE 0, l: INPUT"Aennpt»: • I V 

2040 C-VALIA«<3,BM:G-C-PR 

2043 L-IO*3.6J /100:M-(B1 10*3.71 /100!f 



La seconde solution (Fin "F") permet d'arreter le programme et do 
memoriser le fichier dans la memoire RAM 
(2) LECTURE d'un FICHIER 

Apres une pression sur "2", le CANON vous demande le Nom ou le Pre- 
nom d'une personne. Une fois le nom entre I'appareil affiche son Nom. 
son Prenom.et son adresse. puis suit I'ordre des demandesdecrites sur 
la feuille I; c'est-a-dire vous demande lenombredejours en moins. que 
la personne a eu. puis le nombre de jours supplementaires. (Attention 
lesjours supplementaires sontcomptes comme leSamedic'est-a-dire 
queleprixd'unjourestfixeapartirdusalairedebasediviseparl69x8x 
1.25 ; ensuite la prime a laquelle la personne a droit, le prix desjoursde 
transport, le nombre de jours de panier si la personne est a la mutuelle 
(Out" 127. 7, Non*=0),!etroppercuetl'acornptequ"arecu1a personne. 
Ensuite le CANON affiche les resultats. 

Le salaire de base et la prime, le prix de jours en moins et supplementai- 
res. le salaire brut, la S.S.M.. la S.S.V. le chomage. la retraite comple- 
mentaire (le taux de ces 4 calculs est inscrit sur la feuille I), le total des 
retenues. le net imposable. le prix du transport et du panier, le total des 
indemnites. le total, la mutuelle. le trop percu et I'acompte. le total de 
deduction et le net a payer. 

Pour faire defiler les resultats une pression sur une touche quelconque 
sera necessaire ; apres le net a payer le CANON revient au debut c'est- 
a-dire pose de nouveau les 3 solutions. 

RS. Un exemple de donnees est enregistre apres chaque programme 
avec DUPONT Jean comme ouvrier et DURAND Paul comme cadre. 

CANON x , 07 



1-Y-.THENC-I: 1- 



H.-* t USING "aaaa. *■ 'I 



•THEN2110ELSECLS 

iT-n.c.-"iU6iM0-««»».i 



■IHKEY»-' •TKEM2130ELSECLS 

)iNT'R.c.A.-'iusiNG-*a*a.a*-iRCAi 

HNT" * rm'i PRINT "PRE- ■ I USING* «aa* 
t| I PRINT- Fr>-<CHM(tl) 

: INKEY«-' ■THEN2130ELSECLB 
JINT-TotAl r.l.nn..: -IPRINTUSING- 



FINKEY*-"THEN2170ELSECLS 

181 'Fra* 

'HINT* Tola I I n.] t! ,r, I '. | • » ■ ; PRINTU*S I 

FINKEY«---THEN2200ELEECLS 
FINKEY«---THEN2203ELSECL5 



7O03 LaCATE3,l:PRINT-EHBE0ISTRE«-:LOCAT 
£ 3,2:PRINT*LES DONNEES- 

7006 LOCATE I,3:print-I0! qui INI «on 

7007 ABa-INKEYa: I FAB*- - - TKEN7007ELSECLS 
700B IFAB»--0*THEN7013 

7009 IPAB«-'N"TMEN7000 



2240 F 
2242 I 



INKEY*-' "THEN2241ELSECLS 



CLSILOCATE Z,[ 



FORI-ITODO 



3030 NEXTI 

304O CLE: END 

3000 IFERR-220RERR-; 



3020 F0RZ-lTO300:N£XTZ:CLS:Q0SUB730Q:f 
SUHE20 

4000 CLSJLOCATE O, l:PKINT'InconnU9 Oai 
!•■: LOCATE 4,2:PHINT'«lchl. 



7020 


NEXT I 


















Z-OT 


330OJNEXT 
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FORZ-0TO30O: NEXTZ 
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•■:print- (A 
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TMENGOSUB 1000: RETURN 
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la K7-:PRINT 




puis 
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ur-:PRIN 


[RETURN]' 


NO 
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IFINKEY* 
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THEN7340ELBEC 
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NOTOROFF 
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LA PAGE PEDAGOGIQUE 
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delaqualiteetdelarichessede 
la comprehension passee. 
mais egalement de la connais- 
sance et de la maltrise des 
structures linguistiques et du 
vocabulaire. 

-SERIEF- 

II s'agit de contraindre a la 

lecture d'un texte a une vitesse 

superieure a un minimum 

determin6. 

Le materiel utilise s'efforce 

done de faire passer dans la 

pratique huit principes : 

1. Lalectureestideovisuelleet 
I'ecrlt est directement un Ian- 
gage pourrcell. 

2. Exercerdesaspectspartlcu- 
llers qui jouent un r6le impor- 
tant dans I'activite globale - 
d6velopper une nouvelle ma- 
niere d'etre et entrer en rela- 
tion avec le monde. 



3. Developper I'anticipation 
(sur des mots). 

4. Elargir le faisceau de vision 
utile. 

5. Apprendre a reduire de plus 
en plus J'improbabilite de ce 
qui suit (anticipation dans les 
textes). 

6. Acquerir des strategies ex- 
ploratoires dans un texte. 

7. Assurer une familiarisation 
avec les mots qui reviennent le 
plus souvent (identification). 

8. ConnattreourepereVrindice' 
de lisibilite (de I'ordre de 75 
pour des textes faciles, 10 pour 
les plus difficiles). 



MAISce qui apparait : 
Lorsqu'on utilise I'Entraine- 
ment a la Lecture sur Micro- 
Ordinateur, il serait dangereux 
de croire qu'on commet un ac- 
te de lecture : en realite, on ne 
fait qu'exercer des conduites 
isolees qui. ENSEMBLE, contri- 
buent a constituer I'activite de 
lecture. Mais II manque a cha- 
cun des aspects isoles, plus en- 



core que les autres aspects qui 
doivent le rejoindre, ce qui 
constitue I'evidence meme de 
la lecture :la decision d'interro- 
ger un texte pour tenter d'y 
trouver les reponses aux ques 
lions qu'on se pose. 

C'est pourquoi il faut reserver 
letermede lee tu re aux rencon- 
tres fonctionnellesavec l'6crit, 
et considerer ces exercices 
seulement comme une aide et 
un entratnement a la lecture. 

Les seances d'assouplisse- 
ment. de musculation, de pre- 
paration technique contri- 
buent grandementaux progres 
du skieur qui ne les confond 
pas pour autant avec le ski lui- 
meme et qui, en tout etat de 
cause, n'a pas commence par 
la. C'est la meme chose pour la 
lecture. 

Ces quelques minutes d'entral- 
nement n 'ontun sens et une ef- 
ficacltequesielless'inscrlvent 
a I'interieurd'une politique ge- 
nerale qui multipliers rencon- 
tres fonctionnelles avec I'ecrit 
social delarue.de la presse.de 
la television, des bibliothe- 
ques, etc... En outre, ce serait 
une erreur d'imaginer un effet 



mecanique pour chacune des 
seances qui developperait, 
presqueal'insu del'utilisateur. 
les qualites du savoirlire. C'est 
le fonctionnement inverse. 

Les series d'exercices ne sont 
que des occasions privilegiees 
de faire prendre co nscie nee de 
ce qui est mis en jeu lorsqu'on 
lit et qu'on lit bien ; et c'est cet- 
te prise de conscience, qui est 
generatrice de progres et non 
legonflement mecaniqued'ha- 
biletes partielles. Autrement 
dit, ceux qui lisent bien ont aus- 
si une bonne connaissance et 
une bonne perception de ce 
qu'ils font quand ils lisent, et 
cette conscience est insepara- 
ble et constitutive de la qualite 
de leur lecture. 

C'est pourquoi. on doit avoir a 
I'esprit que les progres passant 
pourchacun parunedecouver- 
te des strategies de lecture que 
les exercices permettent de 
rendre senslbles. 

Une telle demarche pedagogi- 
que est a I'oppose du dressage 
et du conditionnement. 

F DONNETTE 
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A partir do la semaino prochaine, 
nous vous proposerons une sdrie 
de programmes concus sur TO 7 
et constituant un ensemble 
d'exercices axes sur I'entralne- 
ment a la lecture. 



LE LOGICIEL 
DE LA SEMAINE 



Pinball construction set ... 

sur COMMODORE 64 

APPLE et ATARI 




Les parties de flipper devien- 
nent cheres ? Vous vous las- 
sez des decors sans imagina- 
tion ? Alors precipitez-vous 
sur vos claviers, car vous allez 
creer votre flipper. D'abord, 
vous voulez modifier la forme 
irop classique du modele de 
base ? Prenez marteau, ci- 
seaux ou fleches pour ciseler 
un plateau tel que vous I'ima- 
ginez. Un coup de pinceau 
pour la couleur et vous n'avez 
plus qu'a remplirle plateau de 
Dumpers (vous savez, ces 
champignons rebondts- 

sants...), de cibies, de tourni- 
quets et autres couloirs. Vous 
voulez surprendre un ami ? 
Camouflez dans le decor le 
terrible "mangeurdeballes". .. 
Mais votre travail n'est pas fi- 
ni ! II vous faut maintenant 
mettre en place I'installation 
electrique tenant le compte 
des points, declenchant les 
musiques, augmentant le bo- 
nus... 

Vous voila revenu, vous avez 
laisse fer a souder et 
cisailles ? 
Maintenant, attaquez-vous 



au decor du plateau : grace a 
votre loupe vous pourrez, en 
de multiples couleurs, creer 
le dernier de vos reves. 
Pret a jouer ? Bien sur ! A tout 
instant, vous pouvez tester 
votre travail en jouant une ou 
plusieurs balles. 
Vous trouverez le lanceur un 
peu faible ? Les elastiques 
tropmous ? La balle trop lege- 



re 



Mir 



Vous pouvez 



aussi changer ces parame- 
tres, Une fois ces ultimes re- 
glages effectues, vous pour- 
rez jouer a un, deux, trais ou 
quatre. 

Mais avant de commencer, 
sauvez votre ceuvre sur un 
diskette, que vous pourrez 
formater par le programme. 
Bien entendu. si vous ne dis- 
posez pas de beaucoup de 
temps devant vous, vous pou- 
vez essayer I'un des cinq flip- 
pers "livres" avec le program- 
me. 

Bonne construction, et n'ou- 
bliezpasde nous envoyer une 
copie d'ecran de voire plus 
belle realisation. 

Michael THEVENET 
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CHERCHE DONATEUR EXT 
POUR ZX. 81 16K ou 32K (etat de 
marche). Daniel GRIMAULT, rue 
de I'Abreuvoir, Residence du mar- 
che, Bat. A. 94150 RUNGISVILLE. 

VENDS ZX 81 + 16K + JOYSTICK 
+ INVVIDEO + RESET + 200 logi- 
ciels, programmes sur ZX 81 : 
1.000 F. Nenad CETKOVIC. 88 Bis 
rue Simon Dereure 93100 MON- 
TREAL. Tel. : 528.09.63. 

VENDS FX 702 P + imprimante + 
"La Decouverte" + "boitea outils" 
+ programmes. Le tout 1.100 F. 
Alain VIVAUDOU, 10 rue Depar- 
cieux 30100 ALES. 

VENDS T07 (Fevrier 84) sous ga- 
rantie + enregistreurde program- 
mes + cartouche basic + 2 livres : 
3.500 F. Monsieur HUYNN, Tel.: 
664.98.93. (apres 18 H) 

ACHETE pour TI99/4A carle RS 
232. Jean Claude DURIAUX 1566 
SAINT AUBIN (SUISSE). Tel. :037/ 
77.12.47. 

VENDS pour ZX 81 ; assembleur 
Z80 memotech + desassembleur 
ZX DB. Valeur 520 F. Vendu 350 F. 
Alban BIAIS, 27 avenue de 'a Se- 
natorerie 23000 GUERET Tel. : 
(55) 52.57,57. 



VENDS HP 41 Bon etat + module 
X fonction + module X memory 
Valeur 3500 F Vendu 2500 F 
Christophe LEFEBVRE, "La Ro- 
che ,T CIVR1EUX DIAZEROUES 
69380 LOZANNE. Tel. : 

843.10.28. (apres 20 H). 

VENDS FX702 P (2/84) + int. Ko 
(1/83) 1.400 F + "LA CONDUITE 
DU FX" + 10 programmes FX + ai- 
merai recevoir renseignements 
sur les sorties commutables du 
TI99/4A (RS 232C ou manettes) 
retour doc. assure. Fabrice VOA- 
RICK, 52 allee de la Robertsau 
67000 STRASBOURG. Tel. : (88) 
35.69.63. (apres 19 H) 

VENDS PC 1500 (5/83) + impri- 
mante/lnter. Cassette + 8Ko + 
accessoires + 2 livres + 2 casset- 
tes dejeux logis'tick + PC Word + 
PC MACRO. Le tout en bon etat : 
3200 F. Olivier CHAPUIS, 47 av. du 
marechal Lyautey 75016 PARIS, 
Tel. : 651.35.68 

VENDS TI99/4A + cordon K7 + 
joystick + logiciel dejeu "RABBIT 
TRAIL" importe USA + Prise PERI- 
TEL (Janvier 84). Vendu : 1900 F 
David ARNAUD, 14 allee d'orleans 
33000 BORDEAUX. Tel : (56) 
52.64.60. (apres 18 H et seule- 
ment BORDEAUX). 



VENDS TI99/4A avec BEtendu - 
Module Echecs f Joystick + cor- 
don magneto + nombreux pro- 
grammes sur K7 avec livre Prix 
2000 F a debattre Bernard DU- 
FAUD 3 Impasse des Aubes 
30320 MARGUERITTES Tel 
(66) 26 23 15 

VENDS ORIC 1 (48KO) 14/83) + 
Cable peritel + Alimentation Peri- 
tel + manuel + One pour lous + 
jeux 1800 F Christophe DES- 
TRIEUX 7 bis place du Champ de 
Foire 16200 JARNAC. Tel (45) 
81.04.18. ou (45)81.07 17 

VENDS T199/4APERITELModula- 
teur Secam + prise magneto + 2 
cartouches jeux ECHECS/ 
CHILSHOLMTRAIL 1900 F 
VENDS DRAGON 32 Version Se- 
cam VHF + prise Peritiel + manet- 
tes jeux + 2 logiciels WHIRLY- 
BIRD/SPACE FIGHTER + livres 
3.700 F Appareils sous garantie 
ayant moins de 4 mois. Thierry 
PUGET 21 rue Albanie Regourd 
31000 TOULOUSE. Tel. ; (61) 
6343.98 

ACHETE pour ZX 81 extension 
16K. Francois LECA, 36 rue de Bu- 
zenval 60000 BEAUVAIS. Tel. : (4) 
448.48.94 poste 2901 (apres 
17H15). 

VENDS SHARP PC 1500 : 1200 F 
+ CE 150 (imprimante) : 1200 F + 
CE 159 (8 Ko RAM protegee) : 
700 F + CE 153 (tablette graphi- 
que) : 900 F. + papier + stylos + li- 
vres + malette : le tout 4600 F 
VENDS ref. Manual APPLE II" 
(U.S.): 150 F. CHERCHE contact 
APPLE II Region Val d'Oise. Joel 
LEMOINE, 2 rue A. Leyge, Bat 28, 
Esc.02. 95340 PERSAN. 

VENDS ZX 81 + 16K + clavier me-, 
canique Memotech + interface 
sonore + 10 K7 jeux -I- 3 manuels 
pour 1400 F (moniteurTVPALne- 
cessaire). VENDS SHARP PC 1211 
+ imprimante + manuels : 900 F 
Monsieur RICCARDO, Tel. : 
962.43.87 (le soir) 

VENDS TRS80MC 10 (12/83 neuf) 
+ memoire 16Ko + cordon ma- 
gneto + Peritel + Alimentation + 
programmes. Prix : 1500 F C.SA- 
DOUN, Tel. : 430.70.68. 
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CONFIGURATION N° 4 

PROGRAMMATION 

AVANCEE : 



GUffAnON. VOUS D 



.', i-vo'.r'A.wc^DECErrt a 



- r:-",mr.'< Dr/7r.'i-,io.'i |.-cr'i/oo, 

- EXTENSION 31 K |PHP IZMJ 

- CARTE COUTBOLEUff DE DUQUETTE fPHP 1M 

1 CARTE P CODE 
1 UCSD PASCAL COMPILEUP, 
1 UCSD PASCAL LINKER 
1 UCSD PASCAL EDITOR 
1 EDITOR ASSEMBLEUR 

L'ensemble: 
3.500,00 FTTC 



POUR TI 99 4/A 
LOGICIELS OISPONIBLES SUR STOCK 

EDUCATION A PARTtR DE 5 ANS 



Addrtlon-SubnractJori ( 
Addrtlon-Subilranlon tl 
Addition Canon 
Dfvljlon-rf*mo(HJon 
DlvWon I 
Early Trading 
Meteor mullf(>llc.ii Ion 

Multiplication! 
Com p. el mult 
Carotte malfdeuie 
Mots croli*t vol. 1 
Mot) crolseiveH. 2 



125F 
I75F 
195 F 
195 F 



EDUCATION A PARTIR DE 10 ANS 

Tl Lr*)o Jl 

OMieuri PGCD PPCM 

LOISIRS 

Jrui video II 

M until Man 



206 F 
875 F 
99 F 
99 F 




A LA1«^ 



ACAlgJ 



Texas Instruments 



CONFIGURATIOIM M° 1 
POURDEMARRER: 

t Tl 99/4 TEXAS 16 K 

! Magnetocassetttcs TEXAS avec compteur 

1 Palre manettes jeux 

1 Cassette "le basic par soi-meme" 

1 Les techniques Programmation dejeux n° 1 e 

1 Introduction au TJ 99/4 n° 1 et n° 2 

1 Module jeux Munchman 

1 Module jeux Parsec 

1 Module Hopper 

D L'ensemble : 
2^50,00 FTTC 



CONFIGURATION N° 2 
ORGANISATION: 

I Tl 99/4 TEXAS 

I Magnetocassettes TEXAS avec compteur 

1 Module gestlon de flchler 

1 Module gestlon de rapports 

1 Module statlstlques 

t Module Ti calc 

1 Gestlon prlvte 

1 Consell Financier 

□ L'ensemble : 
2.600,00 FTTC 



LOGICIELS TEXAS 



Star (reck 

ORGANISATION 

Flthler tfadresiei 



252 F 
252 F 
252 F 
252 F 
252 F 
252 F 



Geillon de rapport 
Cornell financier 
Statlrtlci 
Tl-Ole 

ORGANISATION 



Introd. ao Tl 99/4 (2) 

Lei teclinlquei del programme 

lei tecfinlquei dei programme 

PROGRAMMATION 

Editor aiiembler 

Carte P-Code : permet I'exccull 

UCSD Pascal Compiler 
UCSD Paical Unker 
UCSD Paicil Editor 



1,800f 

600 F 
600 r 
600 F 



BOWS DE COMMANDE 



TARIFS AU 20/4/84 




CONFIGURATION N° 3 
JEUX: 



1 Palrerr 

1 Basic par soi-memc 

1 Module Adventure avec la cassette Pirate 

5 Cassettes assorties pour jouer avec le module 

1 Module jeu Munchman 

I Module Dragon attak 

1 Module Mash 

I Module Star Trek 

L! L'ensemble: 

1.690,00 FTTC 



MODULES ROMOX 



I Code postal Vllle 

I 

I Produfts dlsponlbles dans la llmfte de nos stocks en magasln. Participation aux fralsde port et dexpcdttlon | 
I par transporteor + 180 F pour les configurations. + 30 F pour les logiciels. | 
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